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ABS TRACT 


Since World War II, the electronic warfare officer has 
been planning his missions by hand. The threat today is too 
large and complex for hand planning. The Operational EA6B 
Mission Planning Program is designed to automate much of the 
clerical work involved in planning electronic warfare missions. 
It is an interactive computer program utilizing the WANG 2200T 
installed on all U.S. aircraft carriers. The program consists 
of eight subprograms linked together through an interactive 
main program. This design concept allows for easy access to 
each program. In addition, future programs may be added 
without difficulty. Since each program is a separate entity, 


one may be changed or deleted without affecting the others. 
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ieee ODUCT ILON 


The United States intelligence community has been collect- 
ing electromagnetic signals for many years. The U.S. Navy 
has been involved in countering those signals considered 
threats since World War II. This countering has taken on many 
shapes and forms-from exploitation to sensor denial through 
active countermeasures. 

The U.S. Navy's first active airborne jamming platform was 
the EA-1, followed by the EKA~-3. Neither aircraft were ini- 
tially designed to perform electronic warfare missions. The 
newest and most sophisticated naval tactical airborne jamming 
peeectratt is the EA-6B. 

Previously the Electronic Warfare Officer (EWO) planned 
his electronic warfare missions by hand. Today, the EA-6B 
EWO must also plan his missions by hand against an Electronic 
Meaer Of Battle (EOB) consisting of approximately: Vea 

1. 14,000 known land sites with a total of 62,000 emitters; 

2. 1,200 types of commercial and combatant aircraft and 

missile systems; 

3. 28,000 commercial and combatant surface ships; 

4. 1,100 submarines; and 
9. 350 different missile systems. 

Against an EOB at this magnitude, it is a formidable task 
for an EWO to plan an effective electronic warfare mission in 


a timely manner. 





The initial stages of planning an electronic warfare mis- 
sion are quite time consuming. It consists of gathering num- 
erous publications such as the kilting lists, Radar Order of 
Battle, Radar Handbook, Tacmanuals, etc. The planner must then 
sort through them to retrieve the required information(e.g. 
site location, emitter parameters, etc.) before the actual 
strike planning can begin. Once the charts depicting the EOB, 
radar and weapon envelopes, aa aircraft route of flight have 
been completed, the scenario may then be subjectively analyzed 
and jammer positions optimized. Some noise jamming effective- 
ness calculations may be performed. However, as a general rule 
they are not Since they are very time consuming and cumber- 
some. Also, the results are not accurate for the newer modu- 
lations available to the EWO. 

As the threat library increases so do the EWO's problems. 
By automating the majority of the "bookkeeping", the EWO will 


have more time available to subjectively analyze the scenario. 





II. BACKGROUND 


Research at the Naval Postgraduate School in computer 
aided electronic warfare mission planning was initially com- 
pleted in June 1977 by Beaudet / 2 / and Watts / 3 /. They 
were followed in March 1978 by Odell / 4 /. The resulting 
papers dealt with a particular section or facet of the mis- 
Sion planning process. 

Watts / 3 / dealt with the problem of determining an op- 
timum route for the jamming aircraft. For his computer simu- 
lation, a modified escort mission profile was used. This 
type of profile permits the jamming aircraft to accompany 
the strike group only in those areas where the exposure to 
enemy threat is set to an EWO determined maximum level. 

The optimum route is determined by starting at the point 
where the strike group's exposure to is the greatest. For 
this position and time, an optimum jammer position is compu- 
ted. The program then computes the route in positive and 
negative time from the previous optimum point. In theory, 
eats 1S the optimum route. In actuality, the simulation cal- 
culates several optimum routes, each with its own measure of 
effectiveness. All of these possible routes are presented to 
the operator who makes the final selection. 

Beaudet developed computer software that automated many 
of the initial processes involved in electronic warfare mis- 


Sion planning. A series of operator-computer interfaces were 





utilized to keep the planner integrally involved in the planning 
process. This eliminated a substantial portion of the mission 
planning drudgery. 

Bealdet's program was designed to accomplish the following: 

1. Plot a strike force route-of-flight based on operator 
entered turn point coordinates; 

2. Produce a complete electronic order of battle (EOB) 
printout of the area of interest. 

3. Visually present emitter detection envelopes and 
flight paths based on steps 1 and 2. 

4, Compute and provide to the mission planner, a complete 
navigation solution and threat emitter reaction infor- 
mation for the strike. 

This simulation was accomplisned on an IBM 360/67 general 
purpose computer with an interactive graphics display terminal. 
The 800 step program was written in FORTRAN IV and required 
10,000 words of memory. 

Beaudet proved automation of EA-6B mission planning is 
Feasible. Odell attempted to make it practical. His research 
revealed that with the exception of the WANG 2200T, most com- 
puter systems on board today's aircraft carriers were either 
inaccessible to EA-6B aircrews or were so overworked that 
usage would be impractical. 

Odell's design objectives were to automate as much of the 
mission planning precess as possible and to optimize the 
jamming route selection criteria. 


fe planned to accomplish the first objective by converting 
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Beaudet's program from FORTRAN to WANG Basic. However, after 
conversion, the program was too large for the WANG's internal 
memory. It was subdivided into three modules. Each module 
was loaded into memory from a floppy disk as required. 

His second objective was achieved by a simple optimization 
scheme boeed on the presence of a jamming aircraft in the 
threat radar beam width, distance from the threat radar, strike 
group position, and possible EA-6B positions. This scheme 
may not produce the definitive optimum route for all situa- 
tions involving all types of jamming. However, it does pre- 
sent the operator with another possible route from which to 
metect his route of flight. 

The proposed source for Beaudet's and Odell's electronic 
order of battle was the NIPS computer located in the carrier's 
intelligence center. From this data base, all of the reguired 
information for supporting the program would be obtained via 
an interface with the WANG. This critical interface is not 


and will not be available in the foreseeable future. 


alec: 





Lil. DESIGN CONSIDERATIONS 


The primary objective of this project was to design and 
deploy an EA-6B computerized mission planning program uti- 
lizing Beaudet's and Odell's concepts. This had to be accom- 
plished using the existing assets currently on board U.S. air- 
Mieatt Carriers. An IOC (Initial Operational Capability) of 
September 1978 was scheduled. This coincided with TACELRON 
(Tactical Electronic Warfare Squadron) 132's West Pac deploy- 
mene. The critical factor was the availability of a suitable 
data base. The carrier's NIPS (Naval Information Processing 
System) computer, located in CVIC (Carrier's Intelligence 
Center), does not allow for direct access from other computers. 
The interface hardware and software between the WANG 2200T and 
NIPS is currently under development. It will not become 
available for approximately three years. 

The various naval and national intelligence sources were 
contacted. All could supply a data base but not on the floppy 
disk required by the WANG. pee cunate ly, the Naval Electronic 
Engineering Office (NEEO) in Damneck, Virginia, could supply 
the required data base in the desired format and on the WANG 
Poppy Aisk. This support could be provided on a continuing 
bases and at a reasonable cost. 

Efficient data base management prohibited coupling a data 
base stored on a floppy disk to Odell's program. Therefore 


new programs were written using the same goals and ideas. In 
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addition the programs were to meet the following additional 
criteria: 

1. They had to be simple to operate. Operator training 
time had to be kept to a minimum. 

2. The resultant product had to be flexible and easily 
changed to meet the changing needs of the EA-6B 
squadrons. 

It was decided at the onset that if at all possible, an 
operational program would be made available to the EA-6B 
Beuadrons prior to 1 October 1978. The driving force behind 
this was to get something into the fleet and get their feed- 
back for future development. Because of the short time avail- 
able, the interactive graphics display capabilities would have 


to be added at a later date. 
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ives hor DESCRIPTION 


A. INTRODUCTION 

The Operational EA-6B Mission Planning Programs use the 
WANG 2200T computer system currently installed on board the 
U.S. aircraft carriers. As a minimum, the system must have 
a CRT, 16k of CPU memory, line printer, and a dual floppy disk 
drive unit. A triple disk drive unit is preferable. 

Currently, in this developmental package there are eight 
programs available to the mission planner. Each program is 
a separate entity unto itself. They are all tied together 
through a ninth program called the START module. 

The START module limits the number of commands required 
to operate all the program to one. It provides for easy 
meansition from one program to another. In addition it pro- 
vides for adding future programs that may be developed with- 
out changing the software of the existing programs. 

The seven operational programs available at this time are 
entitled: LAND, MOBILE, PLATFORM, MATCH, LIST, EXCAB EASB 
MANAGEMENT, ICAP EA6B LIST MANAGEMENT, HULTEC and PRINT. 

Each program will be discussed in further detail. 

The heart of the programs is the WANG KFAM-3 (Key File 
Access Method) data management system. / 5 / KFAM maintains 
an index of each individual record in the data base and its 
location in memory. This is accomplished by associating a 


unique key to each data record. 
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The data base used in the mission planning programs is 
divided into three separate units. They are: the land elec- 
tronic order of battle, mobile platform electronic order of 
battle, and the emitter parameter listing (EPL). 

The mobile platform EOB data file has one associated key 
file while the EPL has three. All key files (except for one 
of the EPL's), are located on the same floppy with its asso- 
ciated data file. The land EOB data file does not have a key 
~Lle. 

The keys make it possible to access the data files and 
display to the operator the desired information in a timely 
Manner. An EPL key file may contain an emitter's NATO desig- 
nator, or its NATO nickname; while a mobile platform's key 
file may consist of the platform's name. 

As stated above, the land EOB data base does not have an 
associated key file. KFAM is not used in conjunction with 
this data base. This will be explained in more detail in 
the next section. 

The operator/computer integrity that is so important in 
any automated system is maintained throughout the operation 
of each program. The operator is required to supply pertinent 
information at various points during the execution of each 


program. 


ee DATA FILES 
The data base support for these programs is provided by 
NEEO, Damneck, Virginia. / 1 / They receive the periodic 


intelligence updates produced by the various national 
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intelligence agencies (NSA, DIA, etc.). They update their 
own data base which is a compilation of all the sources' data 
bases. Then an updated data base is supplied to the EA-6B 
squadrons utilizing the mission planning programs. Each data 
base is tailored for the squadron's operating area. Upon 
receipt of new data disks, the squadrons return the old disks 
to NEEO for reuse. 

The data base consists of a land EOB, mobile EOB, and EPL. 
The EPL contains both commercial and military emitters within 
the frequency limits of the EA-6B. This restriction was 
necessary because of the limited storage on the floppy disk. 

NEEO will tailor the data base to meet a squadron's opera- 
tional requirements. The squadron must inform NEEO of any 
needed changes prior to the first of each month. The tailor- 
ing may include such items as adding or deleting certain plat- 
forms or emitters. However, the tailoring may be restricted 
by the available disk space remaining on a floppy. For ex- 
ample, the maximum number of emitters and the associated 
Signals are currently limited to two thousand eight hundred. 
This number may increase in the future to four thousand. 

Bach emitter contained in the EPL requires at least two 
peexty four byte records on the disk. The first record con- 


tains the following information in the format shown. 


Column Nos Contents 

1-5 Elint Notation 

8 Mode Counter (MC) 

10-21 NATO Nickname 

23-24 Emitter Function Code (FC) 
2150 Bowe DLgie NTDS Number 
38-61 Comments 
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The second and subsequent records contain the signal para- 


meter information in the following format. 


Column Nos Contents 

1-5 Elint Notation 

6 End Mode (- indicates last mode) 
7-8 Mode Counter (MC) 

10-14 RF Low 

16-20 RF High 

22-26 PREF Low 

28-32 PREF High 

34-37 Pulse Width Low 

39-42 Pulse Width High 

44 Modulation Type 

47-51 Scan Type 

53-56 Scan Period Lower Limit 
5) 18 dL Scan Period Upper Limit 


Standard DIA codes are used for the emitter's function 
code, modulation type and scan type. 

The mode counter is used to distinguish each signal. The 
record containing the emitter's NATO nickname always has an 
MC of zero. MC increases by one for each subsequent signal 
or mode. The last mode is distinguished by a negative sign 
meecoOolumn six. 

The modes listed for each emitter may differ by only one 
parameter. This increases the size of the EPL but it pro- 
vides the mission planner with each known signal rather than 
a range of parameters for an emitter. 

The comments section contain information pertinent to that 
emitter. This may include associated emitters, platforms, or 
weapons. Recommended jamming modulations will be added at a 
later date. This must be done at NEEO. Otherwise the squa- 
dron would need to reenter the information each eee new 


EPL is received. 
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The Land EOB data file contains a listing of the known 
radar sites within the geographical boundaries of that file. 
Each site requires one sixty four byte record of the format 
shown below. If a site contains more than eight emitters, a 


second sixty four byte record will be used. 


Column Nos Contents 

I Garegouy.(l, tor Land) 

ZH 16 Site latitude & longitude 

Ii 18 Country Code 

21-60 Elint notations of site's emitters 
61-62 Site Function Code 


The Mobile EOB data file contains a listing of the known 
emitters on board each mobile platform contained in the li- 
brary. The mobile file format is the same as that shown for 
the Land EOB except for two changes. The category code for a 
mobile platform is M, A, S, or B. The platform's class name 


is contained in columns two through sixteen. 


©. PROGRAMS 

1. As discussed earlier, the START module limits the 
number of commands the operator is required to know for 
operating with these programs to one. Through this module, 
the operator gains access to each of the seven remaining 
programs. Any programs developed and added at a later date 
may be accessed through this module. 

After the START module is loaded and running, a menu of 
the available programs is presented on the screen. The 
Operator selects the program he wants and enters its number 


into the computer. That orogram is loaded into memory. Each 
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Peetaitiewilt display 1tS EUnction on the CRT after it is loaded. 
This is to ensure the operator has selected the correct program. 

When a program is finished, the operator will be presented 
with three options. One of the choices is to return to the 
START module to select another program. This feature allows 
the operator to continue through as many programs as necessary 
without his reloading the START module. 

2. The LAND program allows the operator to input the 
latitude and longitude of two geographical points and obtain 
the EOB for the enclosed rectangular area. 

A typical output would appear as follows: 
Sure Fl OF 36 


LAT 345119N 
LONG 1234700W 


Be MC 

Ge US 

PMC PC erMElink NAME COMMENTS 

AZoA 0) Tr UNELE AL'S EGCATEDeNExT TO JOE Ss 


A245Z 0 EW LONG GIRL 


The operator decides if the output is to be listed 
on the CRT or on the line printer. He also decides if the 
Signal parameters associated with each emitter are to be 
included in the listing. 

\ 

3. The MOBILE PLATFORM program provides a listing of a 
selected platform's EOB. The platform may be an aircraft, 
surface ship, submarine, or missile. Both commercial and 
combatant platforms are included in the data base. The 
Operator inputs the platform's name and country code. The 


resultant listing may appear as shown below. The emitter 


parameter may be included in the listing. The output may be 


IES, 





printed “on the CRT or line printer. 


Name OREO 

Ge Os 

Ee CV 

ELINT MC FC EMITTER'S NAME COMMENTS 
Po 2.3 2 0 EW PLANT 

B246D 0 SS SPS-10 


4. The LIST program provides the mission planner with a 
listing of an emitter's signals. Either the emitter's elint 
notation or its NATO nickname is entered into the computer. 
A typical listing would appear as follows: 

ELINT MC FC EMITTER'S NAME COMMENT 

fez 3Z 0 EW: PLANT 

ELINT MC RFLO RFHI PRFLO PRFHI PWLO PWHI MOD SLO SHI STYPE 
A123Z 1 200 300 200 300 Z 3 A 2 3 F 
A1l23Z -2 400 450 200 300 2 5 A 2 3 F 

The listing is first presented on the CRT then on paper 
mena hard copy is desired. 

When a match cannot be made, the operator is so informed. 
Memes asked to check his input. If it is correct, then that 
emitter is not located in the data base. 

29. The EA-6B squadron's Electronic Warfare Officer is 
responsible for the management of the alarm and CCI assign- 
ment lists. During an exercise, these lists may change any- 
where from one to six times. Making the changes, typing a 
master, and reproducing the required number of copies can be 
a formidable task. The EA-6B LIST MANAGEMENT Programs were 
designed to help alleviate the problems stated above. The 
EWO selects the List Management program that is applicable 


to his type EA-6B. 
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Three complete sets of lists are stored on the PROGRAMs 
floppy disk at any one time. The operator may recall any set, 
list it on the CRT or on paper, make any changes he desires, 
list it again, and save the changed lists on the disk in 
place of the old set. 

Those parameters allowed in the EA-6B's on board computer 
are acceptable entries. Most erroneous entry attempts will 
be rejected. 

6. The MATCH program iS a post mission Signal identifi- 
cation aid. The operator inputs the parameters of an chien 
tified signal. The computer scans the EPL data base and lists 
all signals that match the inputed parameters. 

The operator may enter a signal's frequency, prf, and 
pulse width or its frequency plus one of the remaining two 
parameters. The more parameters inputed, the smaller the 
output listing. The final identification is left to the opera- 
tor. He may use scan type, scan rate, and/or modulation type 
for the final identification. 

The listing may be printed on paper for later use. 

7. The HULTEC program provides the EWO with a convenient 
means of maintaining an up to date HULTEC file. The operator 
inputs an emitter's frequency, PRF, PRI range, scan period, 
pulse width, name, NTDS key number, and the associated plat- 
form name. The inputs may be stored on the floppy disk for 
use at a later date. Before being saved, the operator inputs 
the current date. 


Bach time the program is run, the HULTEC file is loaded 
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into the computer. The operator may then view the existing 
file, change any data needing changing, save the updated data 
file, and obtain hard copies of the data file. 

The operator may input up to fifty different lines of 
data. Prior to it being saved, it is arranged in ascending 
frequency order. | 

A listing by platform name or emitter name is possible. 
The operator must input the name and all data lines containing 
that name will be listed on the CRT then on paper if desired. 

8. The PRINT program will provide a hardcopy printout of 
the EPL and EOB data bases. The elint notation and NATO 
nickname of each emitter in the EPL is printed. For the Mobile 
EOB, the platforms’ name and country code is listed. While 
for the Land EOB, each site's latitude, longitude, and country 
code is listed. This program eliminates the necessity of 


NEEO mailing data base listings with each update. 


D. DATA MANAGEMENT 

The KFAM-3 data management system is the heart of most of 
the mission planning programs. The KFAM subroutines and 
associated key files make it possible to quickly locate a 
particular data record in the file. After the record is lo- 
cated, the main program retrieves the data and processes it 
before presenting it to the operator. 

mae key files contain a portion of the data record (the 
key) plus the record's location in the data file. The keys 


used in the mission planning programs are: 
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DATA FILE KEY 


Mobile EOB Platform's name and CC 

EPL ld aLighe eXeKerahie she) ¢ 

EPL Emitter name 

EPL Elint notation, mode counter, 
frequency low, and frequency 
Ialaive dae 


The key files are created through two special WANG sup- 
port utilities described in section six. The key file crea- 
tion is included.in the support provided by NEEO Damneck. 

The Land program does not use KFAM to locate the sites, 
since the mission planner is interested in an area rather than 
one particular site. The binary search technique / 6 / is used 
for locating the correct area of interest in the Land EOB 
data file. Once located, the data is sorted by comparing the 
data latitudes and longitudes to those entered by the operator. 
For the binary search technique to work, the latitudes and 
longitudes must be in ascending order. 

Once all sites are located, KFAM is used to process the 
data for listing the emitters located at each site. In this 


case the EPL and one of its key files are used. 
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V. CONTRIBUTIONS AND FUTURE CONSIDERATIONS 


A. OPERATIONAL USE 

The programs were deployed with TACELRON 132 aboard USS 
CONSTELLATION (CV-64) in September 1978; with TACELRON 138 
aboard USS DWIGHT D. EISENHOWER (CVN-60) in January 1979; 
and with TACELRON 137 aboard USS RANGER (CV-61) in February 
79 . 

They have also been made available to Commander, Medium 
Attack-Tactical Electronic Warfare Wing, U.S. Pacific Fleet, 
for use by the other EA-6B squadrons under their cognizance. 

NEEO has been tasked and funded for one year to supply 
the required data bases monthly to each deployed EA-6B 
Squadron. 

To receive the initial data base, the squadron's EWO 
contacts NEEO approximately four to s1x weeks prior to its 
scheduled deployment date. He informs NEEO of their departure 
date, operating area (Med/WestPac), and any special require- 
ments the squadron may have. If the squadron is in Norfolk, 
the EWO should visit the NEEO Damneck office. U.S. data bases 
are available for those squadrons on build ups. The same 


procedures are followed for requesting the U.S. data bases. 
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B. FUTURE CONSIDERATIONS 

Because of time constraints, many features needed to make 
this a complete mission planning package are not included. 
Without great modifications, all items discussed in this sec- 
tion could be incorporated, thus expanding the features and 
versatility of this system. 

If this project is to continue to be used by the opera- 
tional squadrons, a source for funding NEEO is paramount. A 
projected cost estimate of twenty to thirty thousand dollars 
a year is required. This estimate is based on an average of 
four deployed squadrons receiving a monthly update. This 
cost would decrease if it's found through experience the 
monthly update is not required. 

The programs in this project were constructed to operate 
independently of each other except for the START module. By 
using the START module and independent operation, future pro- 
grams may be added without difficulty. Suggestions for new 
programs and improvements will be generated as more people 
use the existing programs. A central point of contact to 
receive these inputs is needed. COMMATVAQWINGPAC would be 
the logical choice. Continued software development may be 
done by thesis students at the Naval Postgraduate School and/ 
Stiapertner Naval Electronic Engineering Office, Damneck, Vir- 
ginia, or the Procal Support Office at Naval Ocean System 
Center, San Diego, California. Funding will be the deter- 
mining factor, but COMMATVAQWINGPAC should pursue this matter. 


some suggested software improvements and/or additions are: 
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1. Incorporate WANG's newest data management system en- 
titled IDEAS (Inquiry, Data Entry and Access System). IDEAS 
uses a technique called HIKAM (Hoshed Index Keyed Access Method). 
Key files are not required, thus more disk space would be avail- 
able for data storage. IDEAS is compatible with the WANGs on- 
board the carriers. 

2. Incorporate an XY plotting routine in the LAND program. 
This will allow computer plotting of the EOB on the proper ONC 
chart, thus automating one more manual function the mission 
planner is required to perform. 
feed a orogram Ehat will Hist all platforms or land 
sites that have an operator specified emitter. 

4. Add the capabilities as outlined by Odell and Beaudet. 
Miae 1S, an interactive program utilizing a graphics terminal 
for complete EOB and strike path plotting. An optimization 
routine is considered essential with this interactive capa- 
bilities package. 

The following hardware recommendations are made: 

metic a plotting routine 1S incorporated, an X-Y plotter 
will need to be installed on each carrier. These are avail- 
able from various sources and can be incorporated without 
any difficulties. 

2. The dual disk drive systems should be updated to tri- 
ple drives. The approximate cost for each additional drive 
femeaiitceen hundred dollars. This third drive allows for more 
system flexibility for not only the mission planning programs 


but for general shipboard use as well. 
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3. An interactive graphics display will be required when 


the programs are expanded to their fullest capabilities. 
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APPENDIX A 
USER'S GUIDE TO THE PROGRAM 


A. INTRODUCTION 

This section is intended to be used by the operators. How 
to operate each program is discussed. For those unfamiliar 
with the WANG 2200T, a brief discription on its operations 
has been included. More detailed information may be found in 
WANG's Programming in Basic. / 7 / 

Some shipboard installations have dual and some triple 
disk drive units. Since the later is the predominate confi- 
guration, it will be used as the standard in this guide. 

For the triple drive system, the PROGRAMS disk is to be 
installed in drive number one, the EOB disk in drive two, and 
the EPL disk in drive three. For the MATCH program, the EPL 
Key File disk is placed in drive two and the EPL disk in 
drive three. 

For a dual drive system, the PROGRAMS disk is placed in 
drive one and the EPL disk in drive two. After the desired 
program is loaded, the EOB disk replaces the PROGRAMS disk 
in drive one. For the MATCH program, the EPL KEY File disk 
is placed in drive one and the EPL disk in drive two. 

The programs are designed so that the operator may either 
1) return to the beginning of the program currently in the 
computer, or 2) return to the START module to load ina 


different program, or 3) terminate all operations after the 
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selected program is finished executing. This provides for 
easy transfer from one program to another. 

Prior to reloading the START module in a dual drive system; 
the PROGRAMS disk must be reinserted if it was removed. If 
this is not done, an error will result. The operator must 
then manually reload the START module. 

Each program is designed to prompt the operator for infor- 
mation aS it is needed. If the response is incorrect or in- 
appropriate it will be rejected. The operator will be asked 


once again for the information. 


Bee BASIC OPERATOR INSTRUCTIONS 

If the system has been operating, it will be necessary to 
clear memory prior to entering another program. This is 
accomplished by first depressing the RESET button. This 
stops the execution of any program that may be in memory. 
Then either type in the word CLEAR or depress the key labeled 
"CLEAR". The CRT display will appear as: 


READY 
:CLEAR . 


The (EXEC) key 1s now depressed. Any programs that may 
have been in memory are now cleared. It is good practice to 
Clear memory prior to loading any program into the computer. 

The operator enters information into the computer via the 
keyboard. Each letter or number appears on the screen as the 
key is depressed. If an error is made, depress the BACK SPACE 
key to the erroneous value and reenter the correct values. 


Once the desired entry is displayed on the CRT, depress (EXEC) 
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to enter the information into the computer. 

Whenever the computer is processing, the white light in 
the upper right corner of the keyboard will be illuminated. 
When the computer iS waiting for an input from the operator, 


fest. appear om the CRI screen. 


C. START PROGRAM 
The START program provides an easy access to the other 
programs in the EA-6B mission planning program library. 
Operation: 
1. Clear the computer's memory as discussed in the 
preceeding section. 
2. Install the PROGRAMS disk in drive number one. 
3. Key in LOAD DCF "START" exactly as it appears 
here. The CRT will appear as 
:LOAD DCF "START" _ 
4. Depress (EXEC) to enter the load instruction. 
Pa eee ler oaDpedts One ene Chl, key in RUN. 
6. Depress (EXEC). 


fee the following will appear on the CRT 


ior LAY INSTRUCTIONS 
1. ARE YOU WORKING ON A 2 OR 3 1. INPUT A 2 IF WORKING 
DRE SYSTEM ON A DUAL DRIVE SYSTEM. 


TESET 1S a TRIPLE DRIVE 
SOCEM ENPUl A. 3. 


2. WHICH PGM WOULD YOU LIKE TO DO 2. SELECT THE DESIRED PGM 
ois t FMUETTERS ON SELECTED SHIPS OR AND INPUT ITS NUMBER. 
AIRCRAFT 


Z2.LIST LAND BASED EMITTERS 

3.LIST THE PARAMETERS OF SELECTED 
Bie TITERS 

4.MATCH INTERCEPTED PARAMETERS TO 
EMITTERS 
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running and display a program header. 


IDI 


5.CHANGE OR MODIFY 'EXCAP' EA6B LISTS 
6.CHANGE OR MODIFY 'ICAP' EA6B LISTS 
7.PRINT A LISTING OF THE DATA BASE 


8.STOP WORKING 


Once loaded, the selected program will automatically start 


LAND PROGRAM 


The LAND program will list (and in the future-plot) the 


EOB for any geographical area selected by the operator. The 


following list of displays and instructions will be seen 


during the execution of this program. 


DISPLAY 


iP. 


THIS PROGRAM WILL LIST THE RADAR SITES 
LOCATED WITHIN THE GEOGRAPHICAL BOUN- 


Banibo oer BY Ink OPERATOR 


*XENSURE THE LAND EOB IS IN DRIVE #_ 


AND EPL IN DRIVE # ** 


ENTER LAT OF LOWER LEFT CORNER: ENTER 


AS DDMMSS* 


IS THIS THE CORRECT VALUE 


ENTER LONG OF LOWER LEFT CORNER. 
ENTER AS DDDMMSS* IS THIS THE 
CORRECT VALUE 


ENTER LAT OF UPPER RIGHT CORNER. 
ENTER AS DDMMSS* IS THIS THE 
CORRECT VALUE 


ENTER LONG OF UPPER RIGHT CORNER. 


ENTER AS DDDMMSS* IS THIS THE 
CORRECT VALUE 


YOUR LOWEST LAT EXCEEDS HIGHEST 
LAT IN DATA BASE 


on 


INSTRUCTIONS 


is 


INFORMATION ONLY 


DO AS INSTRUCTED 


ENTER LAT: D IS 
DEGREES, M IS 

MINUTES, S$ IS SECONDS, 
* IS NOR S- 


VERTEY THE ENTRY. .0 IF 
iis sCORRECT FNIER OY. 


SAME AS 3 EXCEPT * IS 
E OR W. 


DAME AS 3 


SAME AS 5 


HAVE THE WRONG EOB DATA 
DESI JINSERE IRE CORRECT 
DESK 





10. 


1. 


M2 


i. 


14. 


PS . 


hers 


ne 


S. 


1. 


YOUR UPPER LAT IS LOWER THAN LOWEST 


LAT IN DATA BASE 


TOTAL NUMBER OF SITES= 


ENTERED VALUES WERE 


DO YOU WANT THE EMITTER LISTING TO 


INCLUDE THE PARAMETERS (Y OR N) 


DO YOU WANT A HARD COPY(Y OR N) 


ENSURE PRINTER IS ON. SELECT CONT/ 


EXEC TO CONT 


PROCESSING SITE #_ OF __ 


MORE TO BE SEEN. DEPRESS EXEC T0 


CONTINUE 


YOU WANT TO 
Pee On THE EMITTERS 


Mme © 


ANOTHER AREA 

. STOP WORKING 

.RETURN TO 'START' PROGRAM 
5.DO YOU WANT A HARD COPY 


+ bo 


INVALID. REENTER 


NOL INSTALLED AT THIS TIME. SELECT A 


DIFFERENT NUMBER 


~RETURN TO THE BEGINNING TO DO 


2 


Ge 


Jall 


Ze 


14. 


lio ae 


ee 


LS. 


i; 


SAME AS 8 


TOTAL NUMBER OF SITES 
LOCATED IN SEARCH. 
NO ACTION NECESSARY. 


THE SAME VALUES YOU 
ENTERED ARE PRINTED 
OULSLO YOU 


ENTER Y IF YOU WANT THE 
SIGNAL PARAMETERS 
INCLUDED IN THE LISTING. 


IF A HARD COPY IS 
DESIRED ENTER ©. 


ENSURE THE LINE PRIN- 
PER ls ON AND SELECTED. 
ENTER CONT THEN DEPRESS 
EXEC TO CONTINUE. 


TO INFORM YOU WHICH 
SITE IS BEING PRO- 
CESSED AT THE CURRENT 
TIME. NO ACTION RE- 
QUIRED. 


USED WHEN THE CRT IS 
SELECTED AS THE OUTPUT 
DEVICE.TEN LINES OF DATA 
[S PRESENTED Al ONE TIME. 
TO VIEW NEXT SECTION 
DEPRESS EXEC 


DiESPEsYEDeCAriTER FGM 
EXECUTION. SELECT ONE 
OF THE OPTIONS AND 
ENTER THAT NUMBER. 


DISPLAYED WHENEVER AN 
ILLEGAL VALUE IS EN- 
TERED REENLER IE 
CORRECT VALUE. 


DISPLAYED WHEN THE PLOT 
OPTION IS SELECTED IN 
NUMBER 16 ABOVE. 





If the search phase must be terminated prior to its com- 
pletion depress HALT. To view any sites that may have been 
iecatced enter RUN 810. Once terminated, the search phase may 
not be reentered except at the beginning. 

Chee the listing starts, the operator may change the out- 
put device and/or the inclusion or exclusion of the signal 
parameters by: 

a. Depress HALT 
b. Enter D=0 
Ce) pncer RUN 310 
The program may be terminated at any point by depressing 


HALT and entering RUN 1230. 


fee MOBILE PLATFORM 
The MOBILE PLATFORM program provides the planner the 
electronic order of battle associated with any desired mobile 
platform. The platform may be an aircraft, surface ship, sub- 
Marine, or missile. The data base contains both commercial 
and combatants. The CRT displays and instructions for this 
program are shown below. 
DISPLAY INSTRUCTIONS 
1. THIS PGM WILL PROVIDE THE OPERATOR 1. INFORMATION ONLY 
THE EOB FOR A GIVEN SHIP OR AIR- 
CRAFT. THE PLATFORM IS IDENTIFIED 
BY NAME AND COUNTRY CODE 
ZeeeeNsURE THE EOB DISK IS INSTALLED IN 2. DO AS INSTRUCTED 


DRIVE # AND THE EPL DISK IN DRIVE 
# 


SeeeVEPRESS EXEC TO CONTINUE See UEPRESS EXEC AFTER 
SlEPe2 FS 7CoMPLErep 
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Oe 


identification.The operator inputs 


unknown signal. 


DO YOU WANT THE PARAMETERS INCLUDED IN 
THE LISTING ?(Y OR N) 


PLATFORM NAME IS 


PLATFORM'S COUNTRY CODE IS 


UNIT NOT IN DATA BASE 


MORE, TO SEE. DEPRESS EXEC 


DO YOU WANT A HARD COPY (Y OR N) 


DO YOU WANT TO: 
PDO OTHER UNITS 
Z.5 COP 
3.RETURN TO 'START' PROGRAM 


MATCH 


The MATCH program was designed 


for matches to the inputed values. 


pulse width. 


meters or frequency plus either of the remaining two. 


10: 


ENTER Y TO INCLUDE THE 
PARAMETERS 


ENTER THE PLATFORM'S 
NAME. ENSURE THE 
SPELLING IS CORRECT. 


ENTER THE TWO LETTER 
CODE. THESE MAY BE 
FOUND IN A DIA PUB. 


DISPLAYED WHEN A 
PLATFORM IS NOT IN THE 
DATA BASE OR SPELLING 
IS INCORRECT. 


DATA IS PRESENTED IN 
GROUPS OF TEN. WHEN 
READY TO VIEW NEXT 
GROUP DEPRESS EXEC. 


ENTER Y IF A HARD COPY 
iS eDES CRED ENSURE LINE 
PRINTER IS ON AND 
SEREGIED: 


DISPLAYED WHEN THE PGM 
HAS FINISHED EXECUTING. 
SELECT ONE OF THE 
OPTIONS AND ENTER IT'S 
NUMBER. 


Tom OOS tumrsSsToen signal 
the parameters of the 


The computer then scans the EPL searching 


The parameters used for matching are frequency, prf and 


The operator may match using all three para- 


The 


CRT displays and instructions are shown below. 
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DISPLAY 


Ibe 


ne. 


gs 


PZ. 


1 


TMitsmecMeorARCHES THE EPL FOR ALL 
POSSIBLE MATCHES TO PARAMETERS 
SUPPLIED BY THE OPERATOR 


ENSURE THE EPL KEY FILE DISK [5S 
INSTALLED IN DRIVE #_ 


IF PROPER DISKS ARE INSTALLED, DEPRESS 
EXEC TO CONTINUE 


DO YOU WANT TO MATCH IN: 
1. FREQ, PRF, &PW 
2.FREQ & PRF 
3. FREQ & PW 


ENTER FREQ 


FREQ=__ 
IS THIS THE CORRECT VALUE (Y OR N) 
?CR=Y? 


PNIER PRE 


PRE= 
hs THIS THE CORRECT VALUE(Y OR N)?CR=Y? 


ENTER PW 


Ev= 
IS THIS THE CORRECT VALUE(Y OR N)CR=Y? 


TOTAL MATCHES=__ 

IF YOU NEED TO TERMINATE THE SEARCH 
MODE AND WISH TO SEE THE MATCHES MADE, 
ENTER RUN 830 


NO MATCH FOR: FREQ=__ PRF=__ PW=_ 


NO MATCH FOR: FREQ=  PRF= 
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INSTRUCTIONS 


i 


LUGE 


Wee 


es 


VS). 


INFORMATION ONLY 


DO AS DIRECTED 


DO AS DIRECTED 


SELECT ONE OF tHk 
OPTIONS AND ENTER 
[TS NUMBER: 


ENTER A FREQUENCY 
WITHIN THE EA6B's 
RANGE. NEED NOT ENTER 
FIVE DIGITS. 


IF DISPLAYED VALUE 
IS CORRECT, DEPRESS 
EXEC. IF INCORRECT, 
ENTER N. 


Py ERew eRe “UP TOsg999. 


SAME AS 6. 


ENTER PULE WIDTH UP 
nO =9 99 


SAME AS 6 


TOTAL NUMBER OF SIGNALS 
MATCHING ENTERED PARA- 
METERS. NO ACTION RE- 
QUIRED UNLESS YOU WISH 
TO TERMINATE. IF SO: 
ENTER HALT. ENTER RUN 
830 


DISPLAYED WHEN OPTION 
1 WAS SELECTED WITH NO 
ibe le baer 


SAME AS 12 BUT FOR 
OPTION 2 


14. NO MATCH FOR: FREQ= PW= 14. SAME AS 12 BUT FOR 
OPTION 3 


15. MORE TO COME. DEPRESS EXEC TO CONTINUE 15. USED WHEN LISTING 
MATCHES. SCREEN IS 
Pirie TO 16 LINES, 
TO VIEW NEXT SECTION 
DEPRESS EXEC 


6. NO FURTHER MATCHES. DEPRESS EXEC TO b6.  DOFAS SINS ERUCTED. ALL 
CONTINUE MATCHES HAVE BEEN 
VIEWED. 
17. DO YOU WANT A HARD COPY(Y OR N) 17. ENTER Y IF A HARD COPY 


IS DESIRED. ENSURE 
THE LINE PRINTER IS ON 
AND SELECTED. 


18. DO YOU WANT TO: 18. SELECT ONE AND ENTER 
1.DO ANOTHER MATCH iTS NUMBER 
2.RETURN TO ‘START’ PROGRAM 
Boo LOP 


G. EMITTER PARAMETER(LIST) 

This program will provide the mission planner with a 
listing of an emitter's signals. The data is retrieved by 
entering either the emitter's elint notation or its NATO 
nickname. CRT displays and instructions are shown below. 

When using the NATO nickname, not all of the functions 
(e.g. MC,MG,TT,etc) of a Single emitter will be retrieved if 
each function has a unigue elint notation. It is recommended 
the operator use elint notation for all multi-functional 
emitters. 

DISPLAY INSTRUCTION 
1. THIS PGM WILL LIST THE PARAMETERS OF ANY 1. INFORMATION ONLY 
EMITTER SELECTED BY THE OPERATOR. SELEC- 
TION IS BY ELINT NOTATION OR NATO NICK- 


NAME. 


2. **ENSURE THE EPL DISK IS INSTALLED IN 22 UO AS DERECTED 
DRIVE # ** 


ENS 





3. DO YOU WISH TO SEARCH VIA NATO 3. ENTER EITHER A 1 OR 2. 
NICKNAME OR ELINT NOTATION 


1. ELINT 
2. NAME 
4. EMITTER ELINT NOTATION [5S 4. ENTER THE FIVE DIGIT 
ELINT NOTATION 
5. MORE TO SEE. DEPRESS EXEC TO CONTINUE 5. MORE DATA TO BE SEEN, 
DEPRESS EXECUTE TO 
CONTINUE 
6. DO YOU WANT A HARD COPY(Y OR N) 6. ENTER Y IF A HARD COPY 
TS DESIRED.” ENSURE THE 
LINE PRINTER IS ON AND 
SELECTED. 
7. DO YOU WISH TO: 7. DISPLAYED AFTER PGM IS 
1.SEARCH FOR ANOTHER EMITTER FINISHED. SELECT AN 
Ze LOOP OPTION AND ENTER ITS 
3.RETURN TO 'START' PROGRAM NUMBER. 
SeeecHECK ENTRY. IF IT'S CORRECT,THEN THE Se DESELAYED 
EMITTER IS NOT LOCATED IN THE DATA FILE. [IF AN EMITTER CAN NOT 
BE LOCATED IN THE DATA 
BASE. 
9. EMITTER NAME [5S Jy ENTER THE EMITTER S 
NATO NICKNAME 
10. INVALID.REENTER 10. DISPLAYED IF AN ERROR 


IS MADE WHEN ENTERING 
INFORMATION FOR 3 AND 
7. REENTER THE RE- 
QUESTED DATA. 
H. EXCAP EA-6B LIST MANAGEMENT PROGRAM 
The EXCAP (Expanded Capabilities) EA-6B LIST program pro- 
vides the EXCAP squadron's Electronic Warfare Officer the 
capability of maintaining three separate sets of EXCAP EA-6B 
acquisition and CCI assignment lists in the computer. Any one 
set may be retrieved, changed, listed on paper, and saved, 
Meeenout aifecting the other lists. Any number of hard copies 


may be made. The CRT displays and instructions are listed 


below. Only the PROGRAMS disk is required for this program. 
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DISPLAY 


Te 


10’. 


oe 


i 


cd 


THIS PGM WILL ASSIST THE EWO IN 
MANAGING THE EXCAP SQUADRON'S ACQ 
AND CCI ASSIGNMENT LISTS. 


WHICH LIST SET DO YOU WANT TO WORK WITH 
1.WAS 
2. LAND 
3.ASMD 


DO YOU DESIRE A LISTING OF THE PRESENT 
ists (YOR N) 


DO YOU WANT A HARD COPY OF THE LISTS 
(Y OR N) 


HOW MANY COPIES 


DO YOU WANT TO 
1.ENTER ALL NEW LISTS 
2 7GHANGE SOME OF THE LISTS 
3.CHANGE SELECTED PARAMETERS IN 
Aeotle ere iS 
4.SAVE WHAT YOU HAVE DONE 
oo LOP 


Set des aa 


ees @ @ @ 


SAVE ANYTHING 


NUMBER OF LISTS TO BE ENTERED. 
(<=40) 


ENTER FREQ LO 


ENTER FREQ HI 


ENTER PRFI LO 


ENTER PRFI HL 


oc 


INSTRUCTIONS 


ise 


10. 


Ge 


tee, 


INFORMATION ONLY 


SELECT A LIST SET AND 
ENTER ITS NUMBER 


ENTER Y TO VIEW THE 
SEREGT List SEL. 


TF YES ENTER Y. ENSURE 
THE LINE PRINTER IS ON 
AND SELECTED. 


WILL BE DISPLAYED ONLY 
IF Y WAS ENTERED FOR 4. 
ENTER THE NUMBER OF 
COPIES NEEDED: 


SELECT AN OPTION AND 
ENTER ITS NUMBER 


DEISEEAYSD 2 .CPTION 5 
WAS SELECTED IN ITEM 

O. THIS 15 A SAFETY 
FEATURE IN CASE YOU DID 
WANT TO SAVE YOUR WORK. 


DESEPEAYED fh OPTION 1 
IS SELECTED IN 6 ABOVE. 
ENTER ANY NUMBER UP TO 
AND INCLUDING 40. 


ENTER ANY VALID EA-6B 
VALUE 


ENTER ANY VALID EA-6B 
VALUE 


ENTER ANY VALID EA-6B 
VALUE 


ENTER ANY VALID EA~-6B 
VALUE 





Bere 


14. 


Ls 


ee 


vy. 


r3. 


le 


AO 


a 


a. 


Oe 


24. 


ENTER PREF 2 LO 


ENTER PREF 2 HI 


ENTER LTIFN 


ENTER SPRI 


ENTER TBKSF 


ENTER TTMB 


WHICH LIST DO YOU WISH TO CHANGE 
(1T030,41T049) 


DO YOU WISH TO CHANGE ANOTHER LIST 
(Y OR N) 


DO YOU WANT TO 
1.STOP 
2.RETURN TO THE 'START' PROGRAM 
3.RETURN TO THE BEGINNING OF THIS 
PROGRAM 


INVALID, REENTER 


TO CONTINUE DEPRESS EXEC 


WHICH LIST DO YOU WISH TO WORK WITH 


So 


1956 


14, 


LD 


oye 


ie. 


ee 


19% 


rAQh. 


fil 


Tapas 


Zan 


24. 


ENTER ANY VALID EA-6B 
VALUE 


ENTER ANY VALID EA~-6B 
VALUE 


ENTER ANY VALID EA-6B 
VALUE 


ENTER ANY VALID EA-6B 
VALUE 


ENTER ANY VALID EA~6B 
VALUE 


ENTER ANY VALID EA-6B 
VALUE 


DISPLAYED IF OPTION 2 

IS SELECTED IN 6 ABOVE. 
ENTER THE NUMBER OF THE 
LIST YOU WISH TO CHANGE. 


DESPEAYED iE ORT TONG 2.15 
SELECTED IN 6 ABOVE, AND 
APIER THE SLIST SELECIED 
ON oes ENTERED. ENDER 
Y IF YOU WANT TO CHANGE 
ANOTHER LIST. 


SELECT ONE OF THE OPTIONS 
AND ENTER ITS VALUE. 


AN ERRONEOUS VALUE WAS 
ENTERED. ENTER A 
CORRECT VALUE. 


DISPLAYED WHEN THE 

LISTS ARE BEING VIEWED 
ON THE CRI. THE LISTS 
ARE PRESENTED IN GROUPS 
OPSITEN. TO VIEW NEXT SET 
DEPRESS EXEC. 


Diskin, ED iF OPTION 3 
IN ITEM 6 WAS SELECTED 
ENTER THE LIST # YOU 
WISH TO WORK WITH 


WHICH PARAMETER DO YOU WISH TO CHANGE 
-RF LOW 

27k HIGH 
3.PRF 1 LOW 
ane RE Sie iGH 
5.PRF 2 LOW 
6 
i 
8 
9 


ae 


— 


»~PRF 2 HIGH 
. LTIFN 
- SPRI 


11.NO OTHERS 


I. ICAP EA-6B LIST MANAGEMENT PROGRAM 


This program is identical to the EXCAP EA-6B LIST MANAGE- 


MENT program except it is designed for use with ICAP (improved 


Capabilities) lists. 


Zor 


SELECT THE PARAMETER 


TO BE CHANGED AND ENTER 


ITS NUMBER 


(EXCAP LIST MANAGEMENT) are germaine for this program. 


displays and instructions that are different than those listed 


in section H are shown below. 
immemanges from flight to flight. 


DISPLAY 


Pee LHIS PGM WILL ASSIST THE EWO IN ie 


MANAGING THE ICAP SQUADRON'S LISTS. 


Zoe ENTER FTP Ze 
mee ENTER SITE jie 
4. ENTER SYM 4. 
oe ENTER PRI oe 
See ENTER S 6. 
fee ENTER FT i, 
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INFORMATION ONLY 


ENTER 
VALUE 


ENTER 
VALUE 


ENTER 
VALUE 


ENTER 
VALUE 


ENTER 
VALUE 


ENTER 
VALUE 


ANY 


ANY 


ANY 


INSTRUCTIONS 


VALID 


VALID 


VALID 


VALID 


VALID 


VALID 


The details as stated in section H 


The 


The WSC entry was left out since 


ICAP 


ICAP 


ICAP 


ICAP 


ICAP 


ICAP 





8. ENTER TBK 8. ENTER ANY VALID ICAP 
VALUE 


9. WHICH PARAMETER DO YOU WISH TO CHANGE 9. SELECT THE PARAMETER 
1.RF LOW YOU WISH TO CHANGE 
Zone HLGH AND INPUT ITS NUMBER 
3.PRF 1 LOW 
4.PRF 1 HIGH 
5.PRF 2 LOW 
6.PRF 2 HIGH 
peo DLE 
8.SYM 
oe 
OS 
‘alga i 
12.TBK 
13.NO OTHERS 
There as~ only one set of data files available for use 
with the list management programs. Therefore, an EXCAP 
squadron should not attempt to use the ICAP LIST MANAGEMENT 
program. Likewise, a ICAP squadron should not attempt to 


use the EXCAP LIST MANAGEMENT program. 


J. HULTEC PROGRAM 

The HULTEC program provides the EWO a convenient means of 
Maintaining an up to date HULTEC data file. A maximum of 
fifty lines of data may be resident in the data file at any 
one time. Each data line consists of an emitter's name, 
frequency, associated platform, PRF, PRI interval, scan period, 
pulse width, and NTDS key file number. Each line may be 
changed in its entirety or selectively. 

The operator may list the entire data file or list those 
data lines with a particular platform or emitter. Unlimited 


hard copies of the listings may be made. 
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Leading zeros should be used for each numerical entry. 
The data file is sorted in ascending frequency order. If 
leading zeros are not used, the resultant file will not be in 
ascending order. Also, the values will be left justified. 
With leading zeros, these problems do not exist. The leading 
zeros will not appear in the printout. 

The CRT displays and instructions are shown below. Only 


the PROGRAMS disk is required for this program. 


DISPLAY PNSTRUeCTIONS 

1. THIS PGM PROVIDES A CONVENIENT MEANS 1}. INFORMATION ONLY. 
OF MAINTAINING AN UP TO DATE HULTEC NO ACTION REQUIRED. 
Beri . 

2. DO YOU WISH TO LOOK AT THE ENTIRE 2 -EEeerOU WISH’ 10° SEE TBE 
Bee AT THLS TIME (Y OR N) DATA FILE STORED ON THE 


DPS EER. \. 


eeeeewURE TO SEE. DEPRESS EXEC TO CONT 3. DATA IS PRESENTED IN 
GROUFS OF 10. WHEN 
READY TO VIEW NEXT 
CROUP DERRESs  EAEC. 


web YOU WLSH TO: 4. SELECT AN OPTION AND 
1.CHANGE AN ENTRY ENTER ITS NUMBER. 
2.OBTAIN A HARD COPY OF THE CURRENT 

ig JU aas 

3.SAVE WHAT YOU HAVE DONE 

ar ok, LHe: PILES 

3.SEARCH FOR A PARTICULAR PLATFORM 

6.SEARCH FOR A PARTICULAR EMITTER 

7.RETURN TO THE START PGM 

Seo TOP 

>. WHICH LINE DO YOU WISH TO CHANGE >. ENTER THE LINE NUMBER 

(BETWEEN 1 AND 50) 
TO BE CHANGED. 

6. DO YOU WISH TO CHANGE 6. SELECT AN OPTION AND 
1.ALL VALUES ENTER ITS NUMBER. 
2.SELECTED VALUES 

j= ENTER RF 7. ENTER A FIVE DIGIT 

VALUE. USE LEADING 
ZEROS. 
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10. 


Pl. 


e . 


oe 


14. 


Di 


iltsye 


ey 


iS. 


1. 


ZO. 


ZA. 


BENCER ERE 

ENTER PRI l 

ENTER PRI 2 

ENTER PW 

ENTER SCAN PERIOD 
ENTER PLATFORM'S NAME 
ENTER EMITTER'S NAME 
ENTER NTDS KEY NUMBER 


WHICH VALUE DO YOU WISH TO CHANGE? 
SELECT ONE 

odds 

ZeERE 

Seek | 

4.PRI 2 

Bee 
6.SCAN PERIOD 
7.PLATFORM'S NAME 
8.EMITTER'S NAME 
9.NTDS KEY NUMBER 
10.NO OTHERS 


PRINTER ON AND SELECTED? 
PEERESS EXEC TO CONT. 

HARD COPY DESIRED (Y OR N) 
NUMBER OF COPIES 


TODAY'S DATE IS 


ENTER PLATFORM'S NAME 
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LG. 


in 


eae 


ee 


14, 


Spe 


ie) 


ee 


sey 


oF 


20; 


Zs 


ENTER A VALUE OR DEPRESS 
EXEC. 


ENTER A VALUE OR DEPRESS 
RiGee: 


ENTER A VALUE OR DEPRESS 
EXEC, 


ENTER A VALUE OR DEPRESS 
EXEC. 


ENTER A VALUE OR DEPRESS 
ENTER A VALUE OR DEPRESS 
EXEC. 


ENTER A VALUE OR DEPRESS 
EXEC. 


ENTER A VALUE OR DEPRESS 
EXEC. 


SELECT AN OPTION AND ENTER 
ITS NUMBER. 


DO AS INSTRUCTED 


ENTER Y IF HARD COPIES 
ARE DESIRED 


ENTER THE NUMBER OF 
COPIES DESIRED 


ENTER THE CURRENT DATE 
AS MM/DD/YY 


ENTER THE PLATFORM'S 
NAME THAT YOU WISH TO 
HAVE THE DATA ON 





22. NO PLATFORM WITH THAT NAME 22. WRONG SPELLING, SPACING, 
OR PLATFORM IS NOT IN 
DATA FILE. 
23. ENTER EMITTER'S NAME 23, ENTER THE EMITTER'S 
NAME THAT YOU WISH TO 
HAVE THE DATA ON 
24. NO EMITTER WITH THAT NAME 24. WRONG SPELLING, SPACING, 
OR EMITTER IS NOT IN DATA 
FILE 
K. PRINT PROGRAM 
The PRINT program will provide to the operator a listing 
of the key elements of each data base. For the EPL, this 
listing contains the elint notation, NATO Nickname, function 
code, and comments of each emitter. A mobile platform's name 
and its country code will be listed from the Mobile EOB. 
While for the Land EOB, each site's latitude, longitude, and 
country code will be listed. 
The CRT displays and instructions for this program are 


Shown below. The programs disk is installed in drive number 


one and the appropriate data disk in drive two. 


ee SPLAY ENSTRUCTIONS 
1. WHICH DATA FILE DO YOU WISH TO WORK i ENEER THE DESTRED 
WITH NUMBER 
ieee L, 
2.MOBILE EOB 
3.LAND EOB 
2. ENSURE THE APPROPRIATE DATA DISK IS 2. ENSURE THE CORRECT 
INSTALLED IN DRIVE TWO, AND THE LINE DATA DISK IS INSTALLED 
PRINTER IS ON AND SELECTED. DEPRESS AND THE LINE PRINTER 
EXEC TO CONTINUE. IS ON AND SELECTED. 


DEPRESS EXEC. 
If ERR 80 occurs after step two, the data disk in drive 
two and that selected in step one above do not agree. In- 


sert the correct disk and enter RUN. 
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ieee KEY SELE INITIALIZATION 

The Key File is an integral part of the WANG KFAM-3 data 
management system used in the EA-6B Mission Planning Programs. 
The various key files used in these programs are established 
by NEEO prior to the squadrons receiving the data file. 

The Initialize KFAM File and Key File Creation utility 
programs from the KFAM-3 ISS Utilities Ve ae package are used 
to create the four key files used in the mission planning 
programs. The EPL data file has three separate associated 
key files and the Mobile EOB data file has one. The Land 
EOB file does not have a key file. 

To conform to KFAM~3 name requirements, the Land EOB 
library is entitled EOB2Fl (even though it has no key file). 
The Mobile EOB library is entitled EOBI1F1l while the EPL 
library is called EPLIF1. 

The following information is required by the Initialize 
Key File utility. The data disk is installed in drive two. 
All key files except EPLIK3 are built on their respective 
data disk. Because of its size, the EPL1K3 file is built 


a separate disk. 


a) User file name Beitr PPh el PPh) BOBBLE IL 
b) Device address for user B10 B1O Bao B10 
file 
c) Data file catalogued Yes Yes Yes Yes 
d) Key file number il Z 3 a 
e) Device address for B10 B10 BO Baro 
keyfile 
£) Record type A A A A 
g) Logical record length oS 63 63 63 
m) Blocking factor = : 4 4 
i) Key length 5 an MSS 17 
ipeotabting position of key S We 3 4 
k) Estimated number of Notel Note2 Note2 Note2 
records 
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NOTE Le) Use the total number of elint notation's 
in the data base. 


NOTE 2: Multiply the User File size by four then 
subtract eight. 


The information required by the Key File Creation utility 
may be obtained from that listed previously for the Initialize 
Reve rile Utility. 

Duplicate key errors will be generated when constructing 
EPLIK1 and EPL1IK2. To decrease the time required for building 
the key files, the print instructions in line 6960 in the 
creation utility should be deleted. Line 6194 should be 
modified to select the CRT instead of the line printer. 

The data base format has been standardized to that 
described in Section IV B of this report. Any deviation from 


this format may render the programs useless. 
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APPENDIX B 


START 


ieee START PGM FOR EA6B MSN PLANNING @2S OF 2-53-79 BY LT S.W. 
USN 
PReeENT REX(03):COM D1 

Ol mumnRreriG WONmAn 2 OR 3 DRIVE SYSTEM", ® 
mr B=2THEN 50:D1=1:GOTO 60 


200 
210 
Ze 0 
230 
240 
Zao.) 
260 
7 0 
280 


S1TH, 
INPUT 


D1l=2 

ER LNT 
PRINT 
me LNT 


ERLNT 
PRINT 


PRINT 


PRINT 
ran LN 
PRINT 
Ea LNT 
PRINT 
ne UT 


HEX (03) 
ieee rem WOULD YOU LEKE TO DO" 


Pato elie noel woke EeCTED SHIPS CR AILLCRAF 


tonal D BASED PMETTERS ” 
cetera PARAMETERS OF SELECTED EMITTERS" 


Te vet bhitieR@ weeny FARANETERS TO EMITTERS" 


STCHONGEMOr MODIeY “EXCAP’ EA6B LISTS" 
CaeGoaA Gre OREMODLTEY -'TCAP, EAGB LISTS" 
(one ronlNG OP THE DATA BASE” 
8.WORK WITH THE HULTEC PGM" 

9.STOP WORKING" 


Gm A COMO 200,210,250,220, 230,240, 260,270,250 
"INVALID. REENTER" :GOTO 70 


PRINT 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
SrOP 


DC 
DC 
DC 
DC 
DC 
DC 
De 
DC 


re} taf tg hed ry rf ey Fy 


03RD Ee 

vt LAND tt 
"MATCH" 
Eon iS T* 
meno BEST 
pile el tae 
eRe 

BEY Uisleverec dh 


hi 





MO 


LI 


IL 


PR 










NUMBER 
OF DISK DERIVE: 


TERMINATE 


LAND 

MOBILE 

MATCH 

LIST EMITTER PARAMETERS 
EXCAP LIST MANAGEMENT 
ICAP LIST MANAGEMENT 
HULTEC 


PRINT DATA LISTING 
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START 
A PROGRAM SELECTION VARIABLE 
B NUMBER OF DISK DRIVES INPUT VARIABLE 


DL COM VARIABLE FOR NUMBER OF DISK DRIVES 
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LAND 


10 REM LAND PROGRAM DEVELOPED BY LT S.W.SMITH,USN,2/12/79 
POeeERINT HEX(03):COM DI 

ime RINT TAB(4):"“THIS PGM WILL LIST THE RADAR SITES LOCATED 

WITHIN THE": PRINT TAB(9); “GEOGRAPHICAL BOUNDARIES SET BY THE 
OPERATOR" 

40 IF DI=1THEN 50:PRINT HEX(OAOA)3;"**ENSURE THE LAND EOE IS 
IN DRIVE #1 AND EPL IN DIRVE #2":GOTO 410 

Do PRINT HEX (OAOA) 3 "** ENSURE THE LAND EOB IS IN DRIVE #2 AND 
EPL IN DRIVE #3**":GOTO 410 

memcoOM A2$(100)62,A35 (15)62,AS(4)62 


mOmcOM 0$(2)64,05564,07$1 

pOmcoM U1$(1)7,0U2$(1)7,81$(1)8,32$(1)8 

SORETURN 

LOOCOM V7$8,T0$7,V9,V9$(3)2,T1(3):COM VOS2,V1$8,V2$2,V3$2,V 
$2,V6S1:COM 02829352, V5S1,V3s1, TCM 73 7CO TO.ronn2 > 2 
4$3,72,V8,T8,T1,7851,72$(8)2,T(8) :COM T4,T5,V6,V7,V1 

L1LOCOM 0,0$1,79$2,T0$(4) 60 

Moco 1T6$1,1T3$3,7T1$(1)2,T38 (1)33,V9$2,7T1$30 
moOADDC(V9S,V0OS):DATA LOAD DA TirTl ae, Voc Too. Toot heme ee 
14002=99 


Mme vo5=T25:FOR T3=TOTO ISTEP -1:GOSUB 130:T2$(T3)=T9S:™“AT SE 
mmm) 11, V7), |STR(TIS 1,64) TO TISQC)STTP T5:TH=VAL(STR(T1S ¢ 
1),2))-T5:IF TJOTHEN 160:T=V1 

momewmecory TOo()iT,T5)TO T3$():V9S=STR(T3S(1),T44+1,2):1F 02 
[O9THEN 190 

berets = TS NEXT T3:T/SeTLS:V=2:IF STP (T1S,1,T4)=STR‘T3$(1),1 
ore yTHEN 180:V=3 

L&ORETURN 

mew Ory TOS yi, 1 |TO LTPS():1F TIS(L)=HEX(FE) THEN 200:Q2 
=Q2+1:COTO 170 

209Q2=0:GOTO 170 

megs —VAL(STR(V1S,5)):T5=T44+3: V6"“VALCSTR(V1S,6)):¥7=T5*V6:V1 
=V7-T5+1:RETURN 

meogo=" ": IF T6[1THEN 400: IF T6=TOTHEN 90 

230GOTO 400 


PagOeatA SAVE DA TS#T1, (VOS ,V9S)02$5,03$,V5$,V8$,V0$ ,V1$,V2S,V 
3S ,.V6$,T2$,T0,T1,72,V8,T4S.T5$,T78,7T25(),T(),T8$: RETURN 
meer LOAD DA TTI (TS) , (VOS (TI) ,V9S)02$,03$ ,V5$,V8S,V0S,V1 
mmr VY 39 ,V6S,T2S,T0,T1,T2,V8,T4S,T5S, iis CMTC). Tes: RETU 
RN 

Mor o=VAlL(1T4S)*2564+VAL (STR(T4S ,2)):DBACKSPACE #T2,BEG :IF T6 


SOTHEN 270:DSKIP #T2,T6S 

PO =VALCSTR(T4S,3)):08,TSS=" “":RETURN 
SeroertrNn'232(16,T7,T1S):GOSUB 220:IF 0$]" “THEN 90:COSUR 1490 
sT4S=STR(T3$ (1) ,T44+1,3):T8S=H="2":IF VI J2THEN 350:1F T4S$ JHFXCF 
F)THEN 380:GOSUB 260:RETURN 

MeOMEFEN'230(T6,T7,92,03,V78):1F T6{1THEN 390:IF T6]3THEY 39 
O:IF VOJOTHEN 330: INIT(CFF)VOS():INIT(OC)TOS 

SOOTr STRC(TOS ,T7+1, 1) JHEX(00) THEN S00 SmR (TOS) O2+1,1) j|HEX 
(90)THEN 390: IF O2=T7THEN 390 

meta LOAD DC OPEN T#Q2,V7S:STR(V7S ,5,1L)="K":COVVERT O3TO 
meee 7S,6,1),(#):LIMITS THTT, V7 See V ST3SVEINT(T/ 254) sBIN/VOS 
)=V: RIN(STR(VOS, Pe T=2564V:T9=TO: vO0$(T9)= VOS:T1L(T9)=T7:60SU 
B 250:GOSUB 210:V9S=V0S(T9):T1=T7:T2=02 
mOSstTR(TO0$,T7+1,1)=HEX(01): STR (TOS, Q2+1L,1)=HFY (01): V79=V9+41:0 
Sa" ".pssato". pEeTiPpN 

330IF V90$(T6) [HEX (FF) THEN 390: IF TI9=OTHEM 300:GOSUF 24£0:T9=6 
-meolo 300 

340DEFFN'239(T6):IF TO=OTHEN 350:GOSUB 240:T9= 


S10) 





350I1F V9=O0THEN 390:IF VOS (T6) JHEX(FF) THEN 390:T9=T6:GOSUB 25 


0 

360T9=0: INIT (FF)VOS(T6):STR(TOS,T1+1,1),STR(TOS,T2+1,1)=HEX ( 
00): V9=V9=-1:QS=" "sRETURN 

By OTS8S="N" 

3800S="N":RETURN 

390T8S="xX" 

4000S="X":RETURN 

410 PRINT HEX(OAOAOA);TAB(15)3;"DEPRESS EXEC TO CONTINUE": INP 
tee Deir DIi=lTHEN 420:LIMITS F"EOB2F1",A1,A2,A3:GOTO 430 

m0) LIMITS R"EOB2F1",A1,A2,A3 

430 T=A1+(A3-2) :H=T-1:J=H 

mo GOSUB *200("000000N","900000S",8,0,"ENTER LAT OF LOWER L 
EFT CORNER. ENTER AS DDMMSS* ",2):U1$=Q6$:PRINT "LOWER LEFT L 

Pee UiS: INPUT "IS THIS THE CORRECT VALUE? (Y¥ OR N)",CS:IF C$ 
="N"THEN 440 

450 GOSUB '200("O000000E","1800000W" ,9,0,"ENTER LONG OF LOWE 
R LEFT CORNER. ENTER AS DDMMSS*¥ ",2):B1S=Q6$:PRINT “LOWER LEF 
memONG=@ -BI1S:INPUT "IS THIS THE CORRECT VALUE? (Y OR N)",CS:I 
F CS="N"THEN 450 

460 GOSUB '200("000000N","900000S",8,0,"ENTER LAT OF UPPER R 
IGHT CORNER. ENTER AS DDMMSS* "|2):U28=06$:PRINT "UPPER RICHT 
emer U2S:INPUT “IS THIS THE CORRECT VALUE? (Y OR N)",CS:IF 
CS="N"THEN 460 

470 GOSUB '200("0O0000000E","1800C00W",9,0,"ENTER LONG OF UPPF 
R RIGHT CORNER.ENTER AS DDMMSS* ",2):B2S=Q6S:PRINT "UPPFR RI 
Pet LONG=":52S:INPUT “IS THIS THE CORRECT VALUE? (Y OR N)",CS 
sIF CS="N"THEN 470 

480 IF D1I=1THEN 490:DATA LOAD DA F(A1,S)A$S():GOTO 500 

490 DATA LOAD DA R(A1,S)AS(C) 

500 FOR K=1TO 4 

519 IF U1S]STE(AS(K),2,7) THEN 530 

e200) GOTO 740 

e0) NEXT K 

frerr DI=ITHEN 550:DATA LOAD DA F(H,S)AS():GOTO 560 

Soo DATA LOAD DA R(H,S)AS$() 

560 FOR K=1TO 4 

fon EF UIS]STR(AS(K),2,7) THEN 590 

be) GOTO 610 

590 NEXT K 

600 PRINT HEX(OA0OA):PRINT "YOUR LOWER LAT EXCEEDS HICHEST LA 
T IN DATA FILE":PRINT HEX(OA0OA):GOTO 820 

610 M=INT((A1+H)/2) 

620 IF D1=1THEN 630:DATA LOAD DA F(M,S)A$():GOTO 640 

630 DATA LOAD DA R(M,S)AS() 

640 FOR K=1TO 4 

moe IF UlS)]STR(AS(K),2,7) THEN 690 

660 H=M 

670 IF H=A1THEN 750 

680 GOTO 480 

690 NEXT K 

700 Al=M 

710 IF Al=JTHEN 1240 

720 IF Al=H-1 THEN 740 

730 GOTO 480 

meme U2S)SER(AS(1),2,7)THEN 750:PRINT “YOUR HIGHEST LAT [ 
LOWEST LAT IN DATA BASE":PRINT EEX(OA0OA):GOTO 820 

feo lr DIizeiTHEN 760:DATA LOAD DA F(S,S)AS():GOTO 779 

760 DATA LOAD DA R(S,S)AS() 

770 FOR K=1TO 4:IF UISJSTR(AS(K),2,7) THEN 790: IF B1S]STR(AS ( 
feeoerO PEHEN 790:2F UZS/STR(AS(K) ,2,7)THEN S19: IF B2S[STR(AS( 
K),9,8)THEN 790 


ol 





780 
* 


790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
RAME 
890 
900 
910 
LECT 
9220 
930 
940 
oe) 0 
960 
27 0 


ve 
3 


980 

990 

S ON 
HVA** 
1900 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
pT 0 
1120 
130 
RINT 
(CW), 
1140 
LNG 

1150 
onl) 
1160 
1170 
=36 

1180 
1190 
1200 
1210 
220 
1230 
0 MO 


CieGti-A25 (Cl )=As(K):REM *IF ERR 18 OCCURS ENTER RUNS10 
NEXT K 

GOTO 750 

PRINT "TOTAL NUMBER OF SITES="5Cl 


IF CLJOTHEN 850:PRINT :PRINT "ENTERED VALUES WERE:" 
PRINT U1$,U2$ 
PRINT B1$,B2$:PRINT :GOTO 1230 


EF DE=2THEN 860:SELECT #1B10,#2B10:GOTO 870 


SELECT #1350,#2350 

eoope '230(1,1,2,1,"EPLIF1") 

INPUT "DO YOU WANT THE EMITTER LISTING TO INCLUDE THE PA 
TERS (Y OR N)",ES 


INPUT "DO YOU WANT A HARD COPY(Y OR N)",CS 
IF CS="N"THEN 960 

STOP "ENSURE PRINTER IS ON. 
BRENT, 215s¢€Sse"y" 

PRINT "TOTAL NUMBER OF SITES="3Cl 

PRINT "ENTERED VALUES WERE:" 

PRINT U1S,U2S$ 

PRINT B1S$,B2$ 

FOR W=1TO Cl :REM INDEXING THRU LOCATIONS 

PRINT HEX(OAOA):IF CS="Y"THEN 980:PRINT "PROCESSING SITE 


SELECTOOGCONT/EXEHE TO, GONT"<SE 


aoe OF: C1 
L3=21 
MemesStTR(A2S (Wek so.o)= “THEN LI3O:REM END OF ELINT NUMBER 
PLATFORM CARD:REM ***IF ERR 18 OCCURS ENTEP RUN 112 
M4S=STR(A2$ (W) ,L3,5) :REM M4S=ELINT NOTATICN 
GOSUB '232(1,0,M4$):REM FLINDOLD 
IF OS(]" "THEN 1110:REM NO MATCH 
DATA LOAD DC #2,A$() 


D=D+1:A3$(D)=#A$(0):IF ES="N" THEN 1LOO:IF Q=4THEN 1090 
FOR K=0 TO 4 

IF A3$(D)=AS(K) THEN 1070:D=D+1:A3$(D)=AS (XK) 
MeeSTR(CASUK) .6,1)="—"THEN 1100 

NEXT K 

Q=1:DATA LOAD DC #2,A8():GOTO 1059 

L3=L3+5:1F L3]59 THEN 1130:GOTO 990 
D=D+1:A3$(D)=STR(M45,1,5):STR(A3$(D),10,9)=" NO MATCE" 
L3=L3+5:IF L3[59THEN 990 


Bowmen Nreeeo eh: 3WePRINE “LAT: ";STR(A2S (CW) ,2,7):P 
meOhiGweme oT Rin 25 0N) 9.8) PRINT “FCN CODE: ";STRC(A2$ 
G1, 2) pomebe COUNTRY  @GODE+":STR(A2S (W) ,17,2) 


wen eWeek Nie ASS (I) SLE Ese oNYTHEN 1150;PRINTUS 
5 

Behan 1Z00;FOR T=>ZTO D:PRINT A3S(L):IF STR(A3S5 (1), 
{]"-"THEN 1160:PRINT 

IF CS="Y"THEN 1190 

Poo tHeEN LISO:EF I=16THEN 1L1SO:IF I=26THEN 1180:IF IL 

Hib toosGOLO 1190 

PRINT HEX(OA) 2 INPUT “MORE TO SEE, 
NEXT I 

mr €S="Y"THEN 1220 

MieUu=s) MORE TO BE SEEN.DEPRESS EXEC",¢C 

D=O:NEXT W 

PebEGrePRINT S005: CS2 N:ES=°N": PRINT HEX(COAOA): INPUT "N 
Ptelo ost eskEN«. TO CONTINUE DEPRESS EXEC"’,E 


DEPRESS EXEC",G 


1240 PRINT “DO YOU WANT TO" 

meaoo PRINT " Pay eoul GHee BLT T ERS 

na PRINT ” Zee wOURN T@ TRE BEGINNING. FO DO ANOTHER ARE 
feo) PRINT " SS SOP NORKING © 


Bee 





30 PRINT " 4.RETURN TO ‘START’ PROGRAM" 

1290 PRINT " 5.DO YOU WANT A HARD COPY" 

msy0 INPUT E 

iow ON & GOTO 1330,1370,1370,1370,910 

1320 PRINT "INVALID. -REENTER": GOTO 1240 

1330 REM PLOT ROUTINE:PRINT "NOT INSTALLLED AT THIS TIME SEL. 
mer A DIFFERENT NUMBER ":GOTO 1240 

1340 ZAELINT MC NATO NAME Ee Naps COMMENTS 

1350 ZLAT/LONG FCCC 

meemeceLINT MC RFLO RFHE PRFLO PRFHI PWLO PWHI MT SCTYP 5& 
be SPU 

ie GOSUB °239(1):D,C1l=0: IF E=2THEN 420:IF E=3THEN 1490 
Meco IF DIS>ITHEN 1390:INPUT "INSTALL PGMS DISK IN DRIVE #1, 


DEPRESS EXEC TO CONTINUE",D 


ie 2 0 
1400 


LOAD DC F"START" 
STOP 


1410 DEFFN'200(QS (1) ,Q$ (2) ,Q3,04,Q955,Q5) 
MO SELECT PRINT 005(64):PRINT HEX(03010A);Q5$;TAB(63):PRIN 


es FOR Q8=170 Q3:PRINT “-";: NEXT Q8: IF Q5=2THEN 1430:P 
RINT "/"::IF Q4=OTHEN 1430:FOR OQS=1TO O4:PRINT "-";:NEXT 08 
1430 PRINT TAB(63):PRINT HEX(0LO0A0A0909); :Q8=0: INIT(20) 06S: 
07S="0":06=0 

1440 09S=" "sKEYIN Q99$,1450,1449:GOTO 1449 

1450 IF O9S=HEX(OD) THEN 1500:IF 09$= HEX(08)THEN 1530:IF Q9$s 


Peet E5) THEN 1420:PRINT Q9S8; 


GOTO 
1460 
90 

1470 
1480 
20 

1490 
J) S16 M8) 


OTHEN Ie. soar 08]13THEN oe One 08]03+04THEN 


SIF Q5=2THEN 1570:0N VAL (09S) =-42 
M7 OR1460.1470,1480 

TP QOOSt(HEX (30) THEN 1520:IF QO9SJHEX(39) THEN 1520:GOTO 14 
IF QO&8[]JOTHEN 1529:Q6=1:GOTO 1490 
meePOS(Ooc™ . “)=OTHEN 149C:IF POS(Q6S=".")[] 
Q8=Q84+1:STR(Q6$,Q8,1)=09$:U3S=06S$:COTO 1440 
PRINT HEX(O070D0A): PRINT TAB(63):IF OS=2THEN 1550:IF Q8= 
1520:07=P0S (06S 


O&8+1THEN 15 


=""):IF QO7=0THEN 1510:IF Q7]Q3+06+1THEN 1520:IF 08-Q7]O4THE 
N 1520 


Po. 0 


pee) TO QO7:IF O9[Q6THEN 2c: EE Q9[=Q7THEN 


CONVERT STR (Q65,1,08)TO Q9:CONVERT Q$ (1) TO OG CGn VERT  @ 
SPS AB, 


1520 PRINT HEX(07):PRINT HEX(O10A0AOA) 3"INVALID. RE-ENTER":G 
OTO 1420 
me eOsceQs=1:IF QS[OTHEN 1520:STR(Q6$,Q8+1,1)=" ":IF Q8=Q3TH 


Pee 560:IF O38 


1540 
oF 5 0 
1560 
b> 7 0 
90 


=Q03+04THEN 1550 
PRINT HEX(082008)::GOTO 1440 
PRINT HEX(082D08);:GOTO 1440 
IF QOS5S[]1ITHEN 1540:PRINT HEX(082F08)3:GOTO 1440 
IF Q9S[HEX(20) THEN 1520: IF Q9S]HEX(7F) THEN 1520:GOTO 14 


; eee woo Neo Os TP @o5/O5 (1) THEN 1520:1F 068]0$(2)THE 
fee) 20 
moo) RETURN 


DiS 





| 
o a 


ae SRO LAL 


DATA LiMITS 









CALCULATE 
EET is: OF 
EOSCTFL 

CAL AS. AS, C,H) 





/ 















LATS & LONGS 





DATALOAD 
(AL,S)AS Eo 
DATA LOAD 
(M,S)AS 








| 
| 
FOR K=1 TO | 
Sr 
| 


5!) 
YES 
YES 


INCREMENT | 
NO aL YES 
No. |INCREMENT 
K 
DATA LOAD YES | 
| 


B1S>STR\_ YES 
(AS (K) ,9,8 





ALS(C) =A$(K) 





(H,S)AS 





FOR K=l TO 4 


| 
ra Se | 


— U2$> 
TRCAS (1), 

7) 
INCREMEN mie NO 


K 
OUR HIGH- 
EST LAT LOW 


BST LAT, IN 
DATA BASE 


TO. BEGINNING ‘STOP 








| 





TERMINATE 








—— 
— 












GOSUB’ 230 





oe PRINT M4$ 










(OPEN EPLIFI & NO MATCH 
FILES) | a 
YES YES 
——PARANETERS 
STING (ES) (AS) DATA LOAD z 
(AS) 
HARD COPY | 
(C$) 
PRINT AS (Q) 
A2$=A$ (Q) Qse1 
LINE 
YES | PRINTER 
SELECTED 



















METER HDG 
FOR W=l TOC 
L3 = L3+5 
FOR K=Q to 4 
PRINT HEAD- 
INGS & SITE INCREMINT : 
& STR(AIS W 


YES 


RTN TO 
NGTART(/RTN 
(} h 

PLOT SLITES/STOP 








(ALS (W) ,L3,5) 


ry 


LA [=] TERMINATE 


GOSUB' 232 
(FIND OLD 
M4S) 





PLOT 
ROUTINE 
(UNDER 





a8. 





LAND 
(DOES NOT INCLUDE THOSE USED BY KFAM AND DEFFN' 200) 


D 


E 


Al 
A2 
A3 
A4 
er 


Dl 


3 


A$ 
A2$ 
A3$ 
B1S 
BZ > 
C$ 


ES 


PMiitik “GOUNLIER 


INPUT VARIABLE FOR PROGRAM SELECTION AT COMPLETION OF 
PRINTING 


CONTINUATION VARIABLE 

HIGHEST SECTOR VALUE IN BINARY SEARCH 

INDEX VARIABLE USED IN PRINT ROUTINE 

INDEX VARIABLE WHEN SEARCHING THROUGH A SECTOR OF DATA 
MID SECTOR VARIABLE IN BINARY SEARCH 

RECEIVING VARIABLE FOR SECTOR NUMBER AFTER DA LOAD 


INDEX VARIABLE WHEN INDEXING THROUGH SITE LOCATION 
BUFFER ARRAY (A2$) 


FIRST SECTOR ADDRESS IN LAND DATA FILE 

ENDING SECTOR ADDRESS 

NUMBER OF SECTORS USED IN DATA FILE 

TOTAL NUMBER OF SECTORS USED IN LAND DATA FILE 
NUMBER OF SITE ACCUMULATOR 


COM VARIABLE FOR NUMBER OF DISK DRIVES. PASSED FROM 
START PROGRAM 


COUNTER USED TO LOCATE END OF DATA IN A STRING OF SITE 
DATA 


RECEIVING ARRAY FOR DATA LOAD COMMANDS 

SITE LOCATION BUFFER ARRAY 

EMITTER INFORMATION BUFFER ARRAY 

LOWER LEFT LONGITUDE 

BPC R RiGaT LONGITUDE 

Peele more Nea 2b) “Y°, A HARD COPY IS DESIRED 


EITHER “Y" OR “"N". IF "Y¥", PARAMETERS ARE TO BE 
TNCEUDED EN PRINTOUL- 
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M4S ELINT NOTATION VARIABLE. USED IN FIND OLD ROUTINE TO 
LOCATE EMITTER DATA 


UlS LOWER LEFT LATITUDE 


U2$ UPPER RIGHT LATITUDE 


ay 





MOBILE 


10 REM DEVELOPED BY LT S.W.SMITH,USN 2/12/79 

90 PRINT HEX(03):COM D1 

30 PRINT TAB(10);"THIS PGM WILL PROVIDE THE CPERATOR THE EOB 
FOR A GIVEN SHIP OR ";TAB(10);"AIRCRAFT. THE PLATFOR™ IS ID 

ENTIFIED BY NAME AND COUNTRY CODE" 

40 IF D1=2THEN 60 

50 PRINT HEX(0A0A);TAB(10);"ENSURE THE EOB DISK IS INSTALLED 
INDRIVE #2":PRINT TAB(18); “AND THE EPL DISK IN DRIVE #3":G 

OTO 410 

60 PRINT HEX(OAOA);TAB(10);"ENSURE THF FOB DISK IS INSTALLED 
IN DRIVE #1":PRINT TAB(18);"AND THE EPL DISK IN DRIVE #2":¢ 

OTO 410 

70 COM A1S(4)62,A$19,A2$(9)62,A33(70)63 

SORETURN 

Omeom V7S2,1T0$7,V9,V0S (3) 2,T1(3): COM V0$2,71$8,V2$2,V3$2,V4$ 
7V651:COM 022.0392, V5$1,V8$1,T5$39,T7$39:COM TO,T9,T2$2,T4 
Pet 2)V8,T8,T1,78$1,T2 8):COM T4,T5,V6,V7,V1 

100COM 0,0$1,T9$2,T0$ ( 

1 Bey oe Tt $30 


S 
110COM T6S1, T3$3,T15 ( ) 
120ADDC(V9S,V0$) :DATA T?T1, (V9$,V9$)7T9S, TOS () :RETURN 


BS 

SGsp al | 

4)60 

) aes SG 
LOAD DA 

13002=99 

maov9S=T2S:FOR T3=TOTO ISTEP -1:GOSUB 120:T2$(T3)=T9S:MAT SE 

PRGHTOS(){1,V7],j}]STR(T1S,1 seas Mio SlEe 15°:T=VAL (STRCTIS( 

1),2))-T5:IF TIOTHEN 150:T=V1 

150MAT COPY TOS(){T,T5]TO T3$():V9S=STR(T3$(1),T4+1,2):1F Q2 

[99THEN 180 

Meera y=TSNEXT [T3:T7S=T1$:V=2:1F STR(T1$,1,1T4)=STR(T3$(1),1 

,T4) THEN 170:V=3 

170RETURN 

MoemretecoryY TOS C)(VI,1ITO T1s():sIF TIS(L)SHEX(FF)THEN 199:Q2 

=02+1:GOTO 160 

19002=0:GOTO 160 

200T4=VAL(STR(V1S,5)):T5=T4+3:V6=VAL(STR(V1S,6)):V7=TS*V6:V1 

=V7-T5+1:RETURN 

poos=" ":TF T6[1THEN 390:IF T6=TITHEN 80 

220GOTO 390 


Mamata SAVE DA 1$:7T1,(V0S ,V9S)Q2$ ,03$,V5$,V8$S,V0S,V1$,72S8,V 
Metco 2S. TO,T1>T2,V8,T4S ,.T5$ ,T7$,T2$() TC) 788 : RETURN 
24QDATA LOAD DA T#T1(TS), (VOS(T9) ,V9$) 028,038, V5$, 78S, V0S,V1 
me >, V3S,V6$,T2$,T0,T1 T2 Vio. ao PSL) S. nOGR) Ry Helga aera 
RN 

Bee ro=VAL(T4S)*2564+VAL(STR(T4S5 ,2)):DBACKSPACF #T2,BEG :IF T6 


=OTHEN 260:DSKIP #T2,T6S 
260Q0=VAL(STR(T4S$,3)):0$,T8S="_":RETURN 

27 0DEFFN'232(T6, T7,T1$):GOSUB rie Pew  TMEESO Goss 130 
:T4S=STR(T3S(1),T441,3):T8S="2":IF V{J2THEN 370:1F T4S$ ]HEX(F 

F)THEN 370:GOSUB 250:RETURN 

280DEFFN'230(T6,T7,02,03,V7S):IF T6[1THEN 330:IF T6}]3THEN 3° 
O:IF V9JOTHEN 320: INIT(FF)VOS():INIT(00) TOS 

290IF STR(TOS,T7+1,1) ]HEX(OO) THEN 380:IF STR(TOS$,02+1,1) ]HEX 
(OO)THEN 380:I1F O2=T7THEN 380 

POODATA LOAD DC OPEN T#02,V7S:STR(V7$,5,1)=3"K":CONVERT Q3TO 
STR(V7$,6,1),(#):LIMITS T#T7,V7$,T,V,73: V=INT(T/256) :BIN(VOS 
Y=V: BIN(STR(VOS, 2) )=T-256*V: T9=T6:V0$(T9)=V0$:T1(T9)=T7:G0SU 
B 240:GOSUB 200: V0S=V0S(T9):T1L=T7:T2=02 
Z310STR(TO$,T7+1,1)=HEX (01) :STR(TOS,O2+1,1)#HEX (01) :V9=V941:0 
S=" "2 T8s="O": RETURN 

3201F V0S (T6) (HEX (FF) THEN 380:IF TI=OTHEN 290:GOSUB 230:T9=0 
330DEFFN'239(T6):IF T9=OTHEN 340:GOSUB 230:T9=0 

3401F VO=OTHEN 380:IF VOS(T6) JHEX(FF) THEN 380:T9=T6:GOSUB 24 
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350T9=0: INIT (FF) VO$(T6) :STR(TOS,T141,1),STR(TOS,T2+1, 1) =HEX ( 
00):V9=V9-1:QS=" "sRETURN 

360T8S="N" 

370QS="N":RETURN 


380T8S="x" 
3900S="X":RETURN 
400Z%# 


410 PRINT HEX(OAOA0NA):PRINT TAB(20);"DEPRESS FEXFC TO CONTINU 
jae INPUT D:PRINT HEX(03) 

420 IF D1#1THEN 430:SELECT #1310,#2310:GOTO 4490 

430 SELECT #1 B10, #2 B10 

440 1,C,D=0 

450 GOSUB '230 (1,1,2,1,"EOB1F1") :REM OPFN FILES 

460 INPUT "DO YOU WANT THE PARAMETERS INCLUDED IN TRE LISTIN 
G 7(Y OR N)",GS 

470 PRINT "PLATFORM NAME IS": INPUT STR(A$,1,15) 

480 PRINT "PLATFORM'S COUNTRY CODE IS":INPUT STR(AS$,16,2) 
490 GOSUB '232 (1,0,A$) :REM FIND OLD 

500 IF OS[]" " THEN 580 :REM NO MATCH 

PEOMDATA LOAD DC #2, A1S(€ ) :REM LOAD PLATFORM DATA 


0 A2S(1)=A1S (Q): 141 

530 IF STR(A1LS(Q),20,1)=" “THEN 600:IF Q=4THEN 570 
540 FOR K=O TO 4:IF A2$(1)=A1S(K)THEN 560 

550 I=I+1:A2$ (1I)=A1S$ (XK) 

560 IF STR(A1S(K),19,1)="—<"THEN 600:NEXT K 


Paoo=1 > DATA LOAD DC #2,A1$():GOTO 540 

580 PRINT HEX(OAOA): PRINT "UNIT NOT IN DATA BASE" 

590 GOTO 930 

600 GOSUB '239 (1) sREM CLOSE PLATFORM FILE 

meoerr DI=l1THEN 620:SELECT #1B10,#2B10:GOTO 630 

MeO SELECT #1350,#2350 

630 GOSUB '230(1,1,2,1,"EPLIF1") :REM OPEN EPL FILES 

640 FOR W=1 TO I :REM INDEXING THRU UNITS 

650 M3=21 

660 IF STR(A2S (W) ,M3,5)=" " THEN 809 :REM END OF ELINT NU™ 
BERS ON PLATFORM CARD 

670 M4S=STR(A2S (W) ,M3,5) 

moo GOSUB '232 (1,0,M4S) 

meoelF OS[]" " TREN 780 

MOGs DATA LOAD DC #2, A1$({) 

fee G@=C+1°A35(C)=A1S(0):IF GS="N"THEN 790 

720 FOR K=Q TO 4 

go0 IF A3S(C)=A1S(K) THEN 740:C#C4+1:A43$(C)=A1$(K) 

meoetF STR(A1S (K),6,1)="="THEN 760 

MeeeteEXT K:Q0=1:DATA LOAD DC #2,A1$():GOTC 720 

760 M3"=M3+5:IF M3]59THEN 890:GOTO 660 

#70 GOTO 800 

eG =C+12:A3S(C)=STR(N4S 1,5) :STR(A3$(C),10,9)="NC MATCH" 
790 M3=M3+5:IF M3[=60THEN 660 

800 NEXT W 

Saee RINT :PRINTUSING 1020:PRINT STR(A2$(1),2,17)3;STR(A2S(1) 
501,2) :PRINTUSING 1010:PRINT A3$(1):IF GS="N"THEN 820:PRINT 
USING 1030 

oO ae Dar TOwe sb PeGS="Y"THEN 830;EF STRCA3S (W),8,1)[]"O"THE 
N 

BeOmePRINT A3S(W):IF STR(A3S(W),6,1){]"-="THEN 840:PRINT 

840 IF CS="Y"THEN 860 

850 IF W=lOTHEN 890:IF W=20THEN 890:IF W=30THEN 8¢0 

860 NEXT W 

870 IF CS="Y"THEN 920 

880 GOTO 900 

890 INPUT "MORE TO SEE. DEPRESS EXEC",F: GOTO 860 


Sy, 





900 INPUT "DO YOU WANT A HARD COPY (Y OR N)", 

howln Cae NN” THEN 930:CS=2°Y":SELECT PRINT 015: GOTO 819 
MeOeSELECT PRINT O05: cs="N" 

ooo) PRINT DO YOU WANT TO:" 

940 PRINT i DOmO LHER SU METS “ 

250 PRINT " 2S Oe 

fou INPUT " Se enURtewO START’ PROGRAM" ,E 


970 GOSUB '239(1):0N E GOTO 980,1940,990 

eoO PRINT HEX (03): GOTO 420 

weeeeGOM CLEAR :I1F DE=LTHEN 1009: PRINT HEX(O390A0A0A): INPUT "I 
MolALL PGMS DISK Pmomivee Lee DEPRESS EXEC TO CONTINUE" 7 0 
epepC F"START" 

moo) LOAD DC F"’START" 

moO ZELINT MC NATO NAME ECR NIDS COT ENS 

1020 ZUNITS NAME Cerne 

[meee ,.ELINT MC REFLO RFHI PREFLO PRFHI PWLO PWHI MT SCTYP § 
mi 6S PU 

moa 0 STOP 


60 





M0 


GOSER® 276 
(OPEN FOBLET 
FILES) 


ee 
ALS (aR) YES 
= A2S(1) 


NO 


ee Ga 
ALS (1L)= 






INPUT 
PLATFORM 'S 






ALS (K) 





L/ 
















GOSUB’ 232 
(FIND OLD AS) YES STR 
ALS(K) ,18, 
NO 
(Ca “ie PLATFORM 


NOT IN DATA 
BASE 


mw 


I = I+l 
A2$(L) #Al$ (Q) DATA LOAD 


(Al1$) 
aE Te BS 


GOSUB' 239 
(CLOSE EOB 


FILES) 





GOSUB' 230 
(OPEN EPLZFI 
FILES) 


INCREMENT K 


v, 
FOR K=Q to 4 
PARAMETER LISTING 
: DESIRE)? (C$) 





61 





: 
FOR W=l to I K> 


aie INCREMENT W FOR K= Q TO 4 ; 
Po 






SES 


M4S$ = STR 
(A2$(W), M3, 
3) 


DATA PRINTED 
DATA PRINTEU Aa owt 


ON CRT PRINTER 


GOSUB' 232 
(FIND OLD 
M4$) 





RTN TO START/ 






RTN TO BEGINNING/ 
NO_|STR(A3S(C) 4155) | 435 (C)=Al$(K) 
WO SLA A 
YES 







INCREMENT XK 
DATA LOAD 


(Al$) 


VES 


DATA LOAD 
(A1S) 


1A3S(C)=AL$(Q) 





OZ 





MOBILE PLATFORM 
(DOES NOT INCLUDE THOSE USED BY KFAM) 


C 


DL 


M3 


AS 
AlsS 
A2S$ 
A3$ 
es 
G$ 


M4s 


COUNTER FOR PARAMETER DATA 
INPUT VARIABLE FOR DEPRESS EXEC TO CONT 

INPUT VARIABLE FOR END OF PROGRAM OPTION 

INPUT VARIABLE FOR MORE TO BE SEEN DEPRESS EXEC 
COUNTER FOR NUMBER OF LINES OF DATA STORED IN A2$ 
INDEX VARIABLE IN FOR TO ROUTINES 


INDEX VARIABLE FOR STEPPING THROUGH A2$ WHEN RETRIEVING 
EMITTER INFORMATION 


NUMBER OF DISK DRIVES. PASSED FROM START PROGRAM 


Rive VARTABLE TO STEP THROUGH THE STRING OF ELINT 
NOTATIONS CONTAINED IN EACH LINE IN A2$ 


PLATFORM NAME AND CC VARIABLE. USED IN FIND OLD ROUTINE 
DATA LOAD RECEIVER ARRAY 

BUFFER FOR DATA FROM THE EOB DATA FILE 

BUTTER FOR PARAMETER DATA FROM THE EPL DATA FILE 

Hane COPY RECEIVER VARIABLE. EITHER Y OR N 

EQUAL TO Y IF PARAMETERS ARE TO BE INCLUDED IN LISTING 


Pit NOTATION VARIABLE. USED IN FIND OLD ROUTINE TO 
RETRIEVE EMITTER INFORMATION 
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MATCH 


10 REM MATCH DEVELOPED BY LT S.W.SMITH,USN 2/12/79 
20 PRINT HEX(03):COM D1 

50, COM D1,Aa19(100) 64, PCa Or iso, Von,WNS4,FS5(L)8 
momcoM X$S64,NS6,02$2,0352, 0982, 00$(4)60 


50 GOTO 490 
60 RETURN 


70COM V7$8,T0$7,V9,V0$(3)2,T1(3):COM V0$2,V1$8,V2$2,V3$2,V4S 
2. V6S1:COM 0252.03$2,V5$1, V8$1,75$30,T7$39:COM TO,T9,T2$2,T4 
§3,72,V8,T8,T1,78$1,728(8)2,7(8):COM T4,T5,V6,V7,V1 
80COM'0,0$1.T9$2,7T0$ (4) 60 

mime oM 16$1.13$3.7T1$(1)2,13$(1)33,V9$2,71$30 

100 DIM 9$(2)64,05$64,07$1 

meOADDC(V9S ,VOS):DATA LOAD DA T#T1,(V9$,V9$)T9S$,TOS():RETUPN 


12002=99 

mete OS=T12S>FOR T3=TOTO ISTEP -1:GOSUB 11°:T2$(T3)=T9S:MAT SF 
Peo) i ley 7). |STR(TUS,1,T4)TO TIS ()STEP T5:T=VAL(STR(TIS ( 
Meee) )=T5:LF TJOTHEN 140:T=V1 

mapMATeCOPY TOS()/T,T5)/TO 138 ():V9S=STR(T3$ (1),T44+1,2):I1F 02 
[99THEN 170 

meron itso) =T°:NEXT T3:T/S=T1S:V=2:1F STR(T1$,1,T4)=STR(T3S(1),1 
,T4) THEN 160: V=3 

LENRETURN 

merrerecOPYerus()[VI,T]TO TIS():1F TIS(1)=HEXCFF)TEEN 180:Q2 
=02+1:GOTO 150 

18002=0:GOTO 150 

Mm OT4—-VAL (STR (V1S,5)) :T5=T44+3:V6=VALCSTR(V1S ,6)):V7=T5*V6E:V1 
=V7-T5+1: RETURN 

mogoos. ":IF T6[1THEN 470: IF T6=TO9THEN 60 

meOGOTO 470 

maomATA SAVE DA TS#T1, (V0S,V9S)02$ ,03$,V5S$, V8S,VO0S, Valse yoo. Y 
Meee 65,1T2$,T0,T1 T2,V8, TiS Pools 9 5 ras Ol T() Dees .S:: RETURN 
230DATA LOAD DA THETI(TS), (V0$ (T9) ,V9S) 028, OES BN SS Bes Sun Ge talk 
$.V2$,V3S,V6$,72$,T0,T1,72,V8,174$,7T5$,T7$,T2$(),TO), T8$:RETU 
RN 


240T6=VAL (T4S )*256+VAL(STR(T4$,2)):DBACKSPACE #T2,BEG :IF T6 
=QTHEN 250:DSKIP #T2,T6S 

250Q0=VAL(STR(T4S ,3))}:0$8,T8S=" ":RETURN 

mae EN '232(T6,1T7,T1S):GOSUB 200:IF OSJ" "TEEN 60:GOSIUB 120 
Miro 5TR(T3S (1) ,T4+1,3):T8SS"2":IF V[J2THEN 45C:IF T4SJHENC(F 
F)THEN 450:GOSUB 240:RETURN 

MoD EPEN'235(T6):GOSUB 200:IF Q$SjJ" "THEN 60: INIT(00)T1$:0S,T 
mee 5' GOTO 290 

me OUREFN'237(T6):GOSUB 200: IF Q$]" "THEN 69:T=T(1):IF T8S$= 
Ptnen 3SOO0:IF TSS ]HEX(40) THEN 460:T1$=T7$ 

290GOSUB 120 

Mlet=TFT5:TF T2S(1L)=TOSTHEN 310: V9$=T2S(1):GO0St8 119 

310IF TIVITHEN Seti COPYerOs () ero ito ©£3S():IF T3$(1))]HE 
X(FF)THEN 330 

feet —=STR( 13S (1) 1,74) :T4S3STR(T3$ (1) ,T44+1,3):IF T4S]HEXCFF 
) THEN | 40 :T(1)=T:728(1)=T9$:GOSUB 249:RETURY 

feaeo=Torisier TIITOTHEN 480: V9S=T2$(T3):GOSUB 11%°%:T=T(T3):T= 
fewer © IVITHEN 340:MAT COPY TOS()[T,T51TO T3$():IF T3$(1)] 
HEX(FF)THEN 340 

Ber (T3)=T:1F T3=1THEN 329: V9S=STR(T3S( re T4+1, 2)2CGOSUB T10: 
ae more erOS() 1. T>1/TO T3$():T3=T3-1: T=1 2$(T3)= T9S: eroaee. 3hS 


PODEEFY' SURG OOS, V7/5)s EF T6(1THEN 460:I1F T6OI3THEN 46 
O:IF V9JOTHEN 400: INIT (FF) VOS () ; INIT(00)TOS 


3701F STR(TOS$,T7+1,1) ]HEX(OD)THEN 460:1LF STR(TOS,02+1,1) ]HEX 
(OO) THEN 460:IF Q2- 7 THEN 460 
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PeODATA LOAD DG OPEN T7#02,V7S:STR(V7S,5,1l)=°K":CONVERT Q3TO 
Gee ey 7on 651). (i) sLEMITS T#T7,V7S,1T,V,1T3: V@INT(T/256):BINCVOS 
Y=V:BIN(STR(VOS ,2) )=T-256*V: T9=T6:V0S (T9)=V0S: T1L(T9)=T7:GOSU 
B 230:GOSUB 190:VO0S=VOS(T9) : T1=T7:T2=Q2 

390STR(TO$,T7+1,1) =HEX (01) :STR(TO$ ,Q2+1,1)=HEX (01) :V9=V9+1:Q 
fee 2 8S="O" :RETURN 

4OOIF VOS(T6)[HEX(FF)THEN 460:IF T9=OTHEN 370:GOSUB 220:T9=0 
mGOrO 370 

4GLODEFFN'239(T6):IF T9=OTHEN 420:GOSUB 2209:T9=0 

4G20IF V9=OTHEN 460:IF VOS(T6) JHEX(FF)THEN 460:T9=T6:GOSUB 23 
0 

430T9=0;: INIT (FF) VOS (T6):STR(TO$,T1+1,1),STR(TOS,T2+1,1) =HEX( 
00): V9=V9-1:QS=" ":RETURN 

meoTes="N" 

4500S="N":RETURN 

men ress="x" 

4700S="X":RETURN 

meOrr OS="S5"THEN 440:T8S,0S="E":RETURN 

490 PRINT "THIS PGM SEARCHES THE EPL FOR ALL POSSIBLE MATCHE 
S TO PARAMETERS"; TAB(18);"SUPPLIED BY THE OPFRATOR" 

Beer DI=1THEN 510:PRINT HEX(OA0A);TA3(5);"ENSURE THE EPL K 
Bee abe DISK IS INSTALLED IN DRIVE #1":PPRINT TAB(15)3;"AND TH 
meee DISK IN DRIVE #2":GOTO 520 

510 PRINT HEX(OAOA);TAB(5);"ENSURE THE EPL KEY FILE DISK IS 
ee eee? Peon hy ree PRINT TABC)5);"AND THE EPL DISK IN DR 
IVE ; 

520 PRINT HEX(OA0A) 3TAB(10);"IF PROPER DISKS ARE INSTALLED,S 
meet EXEC": INPUT G 

530 PRINT HEX(03) 

Seeger’ DI=ITHEN 550:SELECT #1 310, #2 B10:GOTO 560 

peo SELECT #1 B10, #2 350 

EeomGOSUB '230 (1,1,2,3,”"EPLIF1") 

570 PRINT "DO VOUMWwANTE TO MATCH DPN: 


580 PRINT 1.FREQ,PRF,&PW" 
590 PRINT " DEER EOCEk PRE" 
600 PRINT " 3.FREQ & PW" 


610 INPUT S5 

meaemcGosus '200("40",%10500",6,0,"ENTER FREO ",1):K=09:CONVER 

nee 9TO US, C##H#H):GOSUB '50(US) 

SION PRINT "“FREOQ#";US: INPUT “IS THIS THE DESIRED VALUE(Y OR N 
fey "DS:IF DS="N"THEN 620 

640 IF S5=3THEN 680 

meeecOSUB '200(%9","9999",5,0,"ENTER PREF™,1):K=Q9:CONVERT 09 
TO VS Coiriri): GCOSUB '52(V3S) 

660 PRINT "PRF="5 VS: INPUT UiSeeats Gtr DESTRED VALUE(Y CR ®) 
Gk=Y',DS:IF DSs"N"THEN 659 

670 IF S5S=2THEN 700 

MmrmecOsUB 200("0,.0","99.9",3,1,"ENTER PW ",1):K=0Q9: CONVERT 
99 TO WS,(##.#):  GosuB '51(ws) 

ee RINT “PW="':WS; INPUT "IS THIS THE DESIRED VALUE(Y OR N)C 
R=Y',DS:IF DS="N"THEN 680 

meoeGOSUB '235 (1) :REM FIND FIRST 

meee ir US([STR(T7$,10,5)THEN 800 

MeCSDATA LOAD DC #2, AS$() 

feeetr USISTR(AS(Q) ,16,5) THEN 800 

740 IF §5=3 THEN 770 

eee VO (STR(AS (0) ,22,5) THEN 800: IF VSJSTR(AS(0),28,5) THEN 
800 >REM PRF MATCH? 

760 IF S§5=2 THEN 780 

Poe WOISTR(AS (Q) ,34,4) THEN 800: IF WS]STR(AS(Q),39,4) THEN 
800 >REM PW MATCH? 

780 W=W+1l:Al1S$ (W)=AS (Q): PRINT HEX(03);"MATCHES MADE =":W: PRIN 
Th iF YOU NEED TO TERMINATE THE SEARCH MODE AND WISH TO SEE 
THE MATCHES MADE;ENTER RUN830" 
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Mc =mahe THEN a30 |: REM END OF EPL FILE 
COtOm7 LO sREM LOOPING BACK TO CHECK NEW KEY 
heewyO THEN O80 <sREM IEF POS THEN GOING TO PR 


810 
820 
8 30 


840 
550 
20 
860 
870 
880 
890 
900 
910 
20 
250 
940 
950 
960 
27 0 
980 
720 
1000 
1010 
2 0 
1030 
=?4 
1040 
RESS 
o> 0 
040 
1060 
1070 
PL 
1080 
0:90 
LOO 
ee 0 
=Q 
ie 2 0 
1130 
1140 
ie 0 
1160 
1170 


Mo ROUTINE 


PRINT 
PRINT 


WER COS) Ohm oomGcoto. 650,360,670 


"NO MATCH FOR: FREQ="3 US," PRF=" "pya" 


RES wWosGO 10 
2Goro 1120 


>GOTO. 1120 


"NO MATCH FOR: 
Beet Oo MATLCH FOR: 
SOSUB.* 239 (1) 

IF DL=1THEN 900:SELECT #1B10,#2B10:GOTO 910 
SeeeCT i tooOn td 2450 
mOSUB. (230 C1 .152,1., 
FOR I=1 TO W 

i =i THEN 950 
mE GOLR(PS (1) ,1,.5 
P$(1)=STR(A1$ (1) 


fen FREQ=" 


FREQ=" 


-US, "PRF="sVS 
SUS, pw="s WS 


EWP eplneet 


) 1 O20 Preah 


> 
E 
A 


poe 8) 72 <5) THEN 
SOSUB "232 (1.0 I tr eos];)" “THEN 980 
DATA LOAD DC #2 
IF I]1 THEN 1010 
PRINTUSING 1069 
PRINT A$(Q):PRINT HEX(0A):PRINTUSING 
PRINT AS(Q) 
PRINT ALS(I):I1F CS="Y"THEN 1049 
IF I=6 THEN 105Q:IF I=12THEN 1059: IF 
THEN 1050:IF I=30THEN 1059 
eM ele te CS="Y"' THEN 11190: INPUT 
EXEC TO GONTINUE”,G:GOTO 1080 
INPUT "MORE TO COME. DEPRESS EXEC TO CONTINUF",G:COTO 1 


Ve 


=$ 
1, 
S ¢ 
> ¢ 


GO Perko 2) 


Peete el OOO. Le fT 


"NO FURTHER MATCHES.DEP 


,ECINT MC 

bee Tot 
SPU 

Poe DO. OUsWANT A HAPD COPY (Y CR N)"“,CS$ 

mEees=" N’ THEN 1110 

Seri PRINT Z215:GOTO 920 

SElnpCT PRINT OO5S:PRINT HEX (03) :CS=2=°N":GOSUB 


NATO 
RELO 


Neer oF C NTDS COMMENTS 
Peete Re eer eI PWLOSPWRE MT SCTIYP S&S 


2 oe Gagne! 


PRINT 
PRINT 
Beinr ‘ 
BRinT. * 
TNeLUT E 
OE GOTO 530,1190,1210 
1180 PRINT “INVALID.REENTER": 
1190 COM CLEAR :IF DI1#=1THEN 1200: INPUT 
DRIVE #1, DEPRESS EXEC TO CONTINUE" Die 
meeo LOAD DC F'"START" 

m0 STOP 

1220 DEFFN'SO (US) 

fmuerOR L=1TO 3:I1F STR(CUS,1I,1)[JHEX (30) THEN 1249:STR(US,I,1 
)=HEX(20):NEXT I 


EDOmCOu WANT LO: ™ 
POOR ANOTHER MATCH" 
2 UNIAN TO -* START 
345 ©OP 


PRINT 


PROGRAM" 


COTe 2320 
SiS ih baeeG. SD TSK. iy 
LOAD AUC FE START! 


1240 RETURN 
1250 DEFFN'S1 (WS) 
meget STR(WS,1,1)[{]HEX(30) THEN 1270:STR(WS,1,1)=HEX(20) 
1270 RETURN 
Mieco DEFFN'52 (V$) 
1290 FOR IslTO 3:IF STR(VS$,1I,1)[]HEX(30)THFN 1390:STR(VS,I,1 
)=HEX (20) :NEXT I 
1326 RETURN 1 2108) (COSMO eS 

0 ene), 004,055.20 5 
1320 SELECT PRINT 005(64):PRINT oe a SRA 505$3TAB(63):PPIN 
fee": : Se Q8=1TO Q3:PRINT ae NEXT 08: IF 95=2THEN 12320:P 
RINT "/"3:IF Q4=O0THEN 1339:FOR Q8=1T0 O4:PRINT "<"-:NEXT 08 
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1330 PRINT TAB(63):PRINT HEX(010A0A0909)3:Q8=0: INIT(20)06S: 
075="0": Q6= 9) 

Moser e9s=" "*KEYIN 095,1350,1340:GOTO 1340 

1350 IF O9$=HEX(OD)THEN 1400:1F Q9S=HEX(08) THEN 1430:IF Q9S= 
HEX(E5) THEN 1320:PRINT Q9S3:IF Q5=2THEN 1470:0N VAL(Q9$)-42 

GOTO 1370,1360,1370,1380 

1360 IF Q9S[HEX(30)THEN 1420:IF Q9S]JHEX(39) THEN 1420:GOTO 13 
90 

1370 IF Q8[JOTHEN 1420:Q6=1:GOTO 1390 

1380 IF POS(Q6$=".")=OTHEN 1390:IF POS(Q6S=".")[]JQ8+1LTHEN 14 
20 

MeO) OS=O8t1 :STR(Q65,08,1)=995:CGOTO 1349 

1400 PRINT HEX(070D0A):PRINT TAB(63):IF O5=2THEN 1480:IF Q8= 
OTHEN 1420:IF Q8J13THEN 1420:IF Q8]Q3+Q4THEN 1429:07=P0S (06S 
="."):IF Q7=OTHEN 1410:IF Q7]Q3+Q6+1THEN 1429:IF 08-Q7]Q4THE 
N 1420 

1410 CONVERT STR(Q6$,1,Q8)TO Q9:CONVERT QS(1)TO C6:CONVERT O 
$(2)TO O7:1F O9[OSTHEN 1420:I1F O9f=O07THEN 1490 

1420 PRINT HEX(07):PRINT HEX(OLOAOAOA); "INVALID. RE-ENTER":G 
OTO 1320 

1430 Q8=08-1:IF O8f{[OTHEN 1429:STR(N6S,084+1,1)=" ":IF O8=Q3TH 
EN 1460:IF o8f[= 03+Q4THEN 1450 

1440 PRINT HEX(082008);:GOTO 1340 

1450 PRINT HEX(082D08);::GOTO 1349 

1460 IF A5S{]1THEN 1440:PRINT HEX(O082F02)3:GOTO 1349 

1470 IF 09$(HEX(20)THEN 1420:IF O9$JHEX(7F)THEN 1420:GOTO 13 
90 

mee LF QOS}O3THEN 14290:2F QSS([Q$S(1)THFN 1420:I1F 06$)Q$(2) THE 
N 1420 

1490 RETURN 


6/ 









GOSUB' 239 
CGLOSE EPLIFi 


| FILES) | 


GOSUB' 230 
(OPEN EPLIEL 
FILES) 












OF DATA ON 
CRT 


NPUT & VERIFY 
PARAMETERS 












GOSUB’ 230 
(OPEN EPLSF!) 






OR I = 1 TOW 











GOSUB' 235 
(FIND FIRST 
KEY) 


























FEND (EMIT IER 
NAME VIA FIND 
OLD ELINT 
NOTATION 






WS>STR 
LAS (Q) .39,4) 





TES 







W=W+l 
ALS (W)#A$(Q) 
(MATCH .MADE) 





INCREMENT I 





DATA LOAD 
AS( ) 





GOSUB' 237 
(FIND NEXT 
KEY) 


HARD COPY 
DATA 


OF 





eee) 2259 





PRINT 
“0 MATCHES 
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MATCH 
(DOES 


D 


D1 


E5 
AS 
als 
cs 
DS 


PS 


US 
V$ 


WS 


NOT INCLUDE THOSE USED BY KFAM) 


INPUT VARIABLE TO CONTINUE AFTER REINSERTING PGM-S DISK 
END OF PROGRAM OPTION VARIABLE 

INPUT VARIABLE TO CONTINUE 

INDEX VARIABLE 

MATCHES MADE COUNTER 


COM VARIABLE FOR NUMBER OF DISK DRIVES. PASSED FROM 
START PROGRAM. 


VARIABLE FOR TYPE OF MATCHING 

DATA LOAD RECEIVER ARRAY 

MATCHES MADE ACCUMULATOR 

Poet me Ones Nice tr YA HARD COPY IS DESIRED 
INPUT VERIFICATION STRING FUNCTION 


ELINT NOTATION USED IN FIND OLD ROUTINE TO OBTAIN NAME 
INFORMATION FOR PRINTOUT WITH MATCHES MADE DATA. 


PeEOunNer TENPUL VARIABLE 
PREF INPUT VARIABLE 


PULSE WIDTH INPUT VARIABLE 
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EMITTER PARAMETER (LIST) 


10 REM L EMIT DEVELOPED BY LT S.W.SMITH,USN, 2/12/79. 

20 PRINT HEX(03):COM Dl 

30 PRINT "THIS PGM WILL LIST THE PARAMETERS OF ANY EMITTER §S 
BEECTED BY THE"; TAB(2) ; "OPERATOR. SELECTION IS BY ELINT NOTA 
TION OR NATO NICKNAME." 

40 IF DL=1LTHEN 50:PRINT HEX(OAOA)3TAB(3)3;"**ENSURE THE FPL D 
ISK IS INSTALLED IN DRIVE NUMBER TWO**":GOTO 60 

50 PRINT HEX (OAOA) ;TAB(3)3;"**ENSURE THE EPL DISK IS INSTALLE 
D IN DRIVE NUMBER THREE#*" 

pemcomM BS (4)62,B1$62,A$5,A1$12 

moeGOTO 410 

8ORETURN 


Becom V7S8,T0$7,V9, ene eee: COMIVOS2 Vics. V2S2.V592.V45 
ome6S51:COM 0282, 582 ie tere le 55 305m7S30:COM TO,T9,T2$2,1T4 
$3,T2,V8,T2 Pollie T8S$1,72$(8)2,7(8) :COM T4,75,V6,V7,V1 

100COM 0,0$1,79$2,T0$(4)60 

meme O17 1 6S1,73$3,T1S (1)2,73S$ (1) 33,V79$2,T1$30 

mz OADDC(V9S,V0$):DATA LOAD DA TETL, Gos. OS) TS. TOs Re Lun 


13002=99 

meaovS=T25:FOR T3=TOTO 1LSTEP -1:GOSUB 129:T2$(T3)=T9S:MAT SE 

femetoo()(1,V¥7),)/STR(T1S ,1,T4) TO TIS()STEP TS5:T=VAL(STR(T1LS ( 
ee?) )-T5:IF TJOTHEN 150:T=V1l 

LSOMAT COPY MO Cement oeOr hoc ):V9S=STR(T3S(1),T441,2)21F 02 
[99THEN 180 

fear 3) =TSNEXT T3:T7S=T1$:V=2:IF STR(T1$,1,T4)=STR(T3$(1),1 
mie THEN 170:V=3 

L70RETURN 

fee COPY TOS()/V1,1)TO T1I$():1F TIS(L)=HEX(FE) THEN 190:92 
o2+1:GOTO 160 

19002=0:GOTO 160 
POOT4=VAL(STR(V1S,5) ):T5=T44+3: V6=VAL(STR(V1S,6)):V7=T5S*V6:V1 
=V7-T5+1:RETURN 

2100S=" ":IF T6[1LTHEN 390:IF T6=T9THEN 80 

220GOTO 390 


meta SAVE DA TS#T1,(V0S ,V9$)02S ,038,V5S$,V8S,VOS,V1S,V2S,V 
Semmes TO,TL,T2,V8,1T4S,7T5$,T7S ,T2S8(),TC),TSS:RETURN 
24Q0DATA LOAD DA TETL(T9), (VOS(T9)., vV9S)028, OVS SG SMCS DMO Val 
oypree2s,V3S,V6$,T2$,T0,T1l 02 nV ompbe oC neset7 o T2595 ( ). TC). TSS: RETU 
RN 

250T6=VAL(T4S) *256+VAL(STR(T4$,2)):DBACKSPACE #T2,BEG :IF T6 


=OTHEN 260:DSKIP PARP eS 

meOO=VAL(STR(T4$ ,3)):0$8,T8S=" "Ss RETURN 

Peewee FN'232(T6,T7,T1S):GOSUB 210 2rF OVS ERE NsS0.GOSUS 120 
meee —SIR(T3S(1) ,T44+1,3):T8$a"2":IF Vaigeeru p37 (er 14S HE CE 

F)THEN 370:GOSUB 250:RETURN 

280DEFFN'230(T6,T7,02,03,V7S):IF T6[1THEN 380:IF T6]2THEN 38 
Meer VYOIOTHEN 320: INITCFF)V0S ():INIT(O0)TOS 

meolF STR(TOS ,T7+1 ,1) JHEX (00) THEN Soke eo GR COs 02+ 1. }HEX 
(OO)THEN 380: IF Q2= =T7THEN ew) 

300DATA LOAD DC OPEN T#02 mV OO IeCV 7 oO, 3 4 L)="K"*CORVEPT U320 
meee vV/5,6,1), (#):LIMITS tit7, Veo le 73: Mth (2/256) +B (vos 
y=V; BIN(STR(VOS, 2))= T=-256%V: T9= Té: V0S(T9)= VOS?:TE(T9)=T? =: COST 
mero sGOSUB 200: VOS=VO0S (T9):Tl=T7: T2=02 

3L0STR(TOS T7+1,1)=HEX(0N1): STR(TOS, Q24+1,1])=HEX (01): V9=V941:0 
eee 7 T8S= "0": RETURN 

320IF VOS(T5)(HEX(CFF)THEN 380: IF TO9=OTHEN 290:G0SU 23027920 
:GOTO 290 

330DEFFN'239(T6):IF T9=CTHEN 340:GOSUB 220:T9=9 

ad VO=OTHEN 380: IF VOS(T6) JHEX(FF) THEN 380:T9=T6:GOSUB 24 
Seo =0:INITCFF)VOS (76) =STR(TOS,T14+1,1),STR(TOS,T2+1,1)=HEX ( 
00):V9=V9-1:90S=" " SRETURN 
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360T8S="N" 

370Q0S="N";3RETURN 

380T8S="x" 

ee 7 RETURN 

400Z# 

410 PRINT HEX(0A);TAB(3)3;"DO YOU WISH TO SEARCH VIA NATO NIC 
KNAME OR ELINT NOTATION" 

Ewe PRINT TAB(C15);"1.ELINT" 

430 PRINT TAB(15);"2.NAME™ 

440 INPUT D 

450 IF D[3THEN 460:PRINT "INVALID.REENTER":GOTO 419 

moo IF DISITHEN 470:SELECT #1B10,#2B10:GOTO 480 

470 SELECT #1350,#2350 

moe GOSUB '230(1,1,2,D,"EPLIF1”) 

490 IF D=2THEN 770: INPUT "EMITTER ELINT NOTATION IS",AS 

boo GOSUB '232(1,0,AS) 

bo IF OS[]" “THEN 750 

520 DATA LOAD Dc #2,BS8() 

530 PRINT HEX(03):PRINTUSING 730:PRINT BS(9):PRINTUSING 740 

549 B1S=BS(0):IF O=4THEN 590 

Peer OR K=O TO 4:IF BS(CK)=BISTHEN 580:PRINT BS(K): IF STR(BS( 
K),6,1)2"—"THEN 600: I=I+1 

560 IF I=8THEN 570:IF I=18THEN 570:IF I=28THEN 570:I1F I=38TH 
EN 570:GOTO 580 

ByOP IF B2S="Y"THEN S80: INPUT "MORE TO SEF. DEPRFSS EXEC TO C 
ONTINUE",D 

580 NEXT K 

moOmDATA LOAD DC #2 ,BS():Q=31:GOTO 550 

SOO, TF B2S="Y"THEN 630 

meer rINPUT "DO YOU WANT A HARD COPY(Y OR N)",8B2S 

mae B25="N“THEN 640:SELECT PRINT 215:I1F D=2THEN 720:GCTO 

500 

Som) SELECT PRINT 005:B2S="N" 


640 I=0 

mee RINT HEX(OA);"DO YOU WISH TO:" 

eo) PRINT “ io hehehe ORwANO THEO EMLITER” 
o70 PRINT " IAS TS ALOR elas 

se0 PRINT " 3.RETURN TO 'START'PROGRAM" 


690 INPUT G 

700 GOSUB '239(1):0N G GOTO 800,760,720 

710 PRINT "INVALID.REENTER":GOTO 650 

720 COM CLEAR :LOAD DC F"START" 

730 ZELINT MC NATO NAME FC NTDS COMMENTS 

740 ZELINT MC RFLO RFHI PRFLO PRFHI PWLO PNHI MT SCTYP SP 
L SPU 

750 SELECT PRINT 005:PRINT HEX(OAOA);TAB(10);"CEECK ENTRY. I 
F IT'S CORRECT,THEN THE EMITTER": PRINT TAB(15);"IS NOT LOCAT 
ED IN THE DATA FILE.":PRINT HEX(OA0A):GOTO 640 

760 STOP 

770 INPUT "EMITTER NAME IS",A1$ 

mao GOSUB '232(1,0,A1$) 

790 GOTO 510 

800 PRINT HEX(03):GOTO 410 
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YES DB=l1 NO 











GOSUB’ 230 
EPLIK2 


GOSUB’ 230 
EPLIK1 




















INPUT ELINT 
NOTATION (AS) 


| INPUT NAME 
| (AlS) 








GOSUB' 232 
FIND OLD (AlS 





DATA LOAD 
BS( ) 







Print 
Headings & 
BS(Q) 





TITER 
NOT IN DATA 
BASE" 


f 


For K=Q to 4 


Print BS(K) 


STR 
(B&(K),6,1) 


Yes 


No 


No 


Data Load 
BS( ) 






HARD COPY 
DESIRED (B2$S 


W2 








INCREMENT K 





© 


Print Data 


&) 





TERMINATE 





EMITTER PARAMETER (LIST) 
(DOES NOT INCLUDE THOSE USED BY KFAM) 


D 
G 
a8 


DIL 


A$ 
Al$ 
BS 
B1$ 


m2 > 


SEARCH VIA ELINT NOTATION OR NATO NICKNAME VARIABLE 
DESIRES AT END OF PROGRAM VARIABLE 
INDEX VARIABLE 


COM VARTASPLE, FOR NUMBER OF DISK DRIVES. PASSED FROM 
START PROGRAM 


ELINT NOTATION INPUT VARIABLE 
EMITTER NICKNAME VARIABLE 

DATA LOAD RECEIVER ARRAY 

EMITTER PARAMETER INFORMATION ARRAY 


Pee OR Ni tn (YOO A HARD COPY IS DESIRED. 
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EXCAP EA-6B LIST MANAGEMENT 


MOereMeDEVELOPED BY LT S.W.SMITH,USN, 2/12/79 

20 PRINT HEX(03) 

30 PRINT " THIS PGM WILL ASSIST THF EWO IN MANAGING THE EXC 

MEESCOUADRON'S™:PRINT TAB(20);"ACO AND CCI ASSIGNMENT LISTS” 
m@ebIM OS (2)64,05$64,07$1 

BOeDEM L$(49)58,AS5 

60 PRINT HEX(NAOAOA) 

70 PRINT TAB(10);"WHICH LIST SFT DO YOU WANT TO WORK WITH" 
pet GAB(27); TewAS sPRENT TAB(27);3:"°2.LAND"sPRINT TAB(27 
fee 3. ASMD": INPUT G 

MOPON G GOTO 150,130,110 

100 PRINT "“INVALID.REENTER":GOTO 70 

mao ATA LOAD DC OPEN F “ALISTS”’:DATA LOAD DC L$():REM ***#% 
IF ERR SO OCCURS, ENTER RUN 1220%**%*% 

mae GOTO 160 

jm OeDATA LOAD DC OPEN F "LLISTS":DATA LOAD DC LS$():REM ****% 
IF ERR 80 OCCURS, ENTER RUN 1220%%*%% 

140 GOTO 160 

mOeDAtTA LOAD DG OPEN F "WLISTS’:DATA LOAD DC LS():REM **#**% 
IF ERR 80 OCCURS, ENTER RUN 1220%***% 

ee "DO YOU DESIRE A LISTING OF THE PRESENT LISTSCY OR 
Ny)", D 

mo EF DS="N"THEN 260 

meo, GOSUB ‘100(LS,"N"”,1,G) 

moO INPUT “DO YOU WANT A HARD COFY OCF THF LISTS(Y OR N)",DS 
200 IF DS="N"THEN 260:IF DS="Y"THEN 220 

Peo PRINT “INVALID. REENTER”:GOTO 190 

220 INPUT "HOW MANY COPIES ",C 

Bee SELECT PRINT 215 

meoeGOSUB ‘100 (L$,D$,C,G) 

MeO SELECT PRINT 0905 

BeOePRINT HEX(CO30A0A0A):PRINT “DO YOU WANT To :" 

MeO RINT TAB(7);"1.ENTER ALL NEW LESTS":FPRINT TAB(7);"2.CHA 

fieeoomr OF THE GISTS”:PRENT TAB(7);"3.CHANGE SELECTID FARAM 

meers IN A SELECTED LIST” 

MeOmPRENT TAB(7);:"4,.SAVE WHAT YOU HAVE DONE":PPINT TAE(7);"5 
Ses THE LISTS” :PRINT TAB(7);"6.STOP": INPUT A 

290 IF A[6THEN 300:PRINT "INVALID. REENTER”: COTO 260 

meee ON A GOTO 330,580,610, 860,180,310 

eee ENPUT “SAVE ANY THING??22?7?7??(CY OR N)",DS 

320 IF DS="Y"THEN 866:GOTO 940 

Seo ENPUT “NUMBER OF LISTS TO BE ENTERED ([=40)",B 

PeeoLF B([4ITHEN 350:PRINT "“INVALID.REENTER":CGOTO 330 

See ENIT(™ ")LS() 

360 FOR I=1 TO B 

370 IF I[=30 THEN 390 

380 I=I+10 

moO CONVERT I TO MS, C##) 

400 STR(L$(I),1,2)=M$ 

mimeo sup  200(%55".°10500",6,0,"ENTER FREQ LO",1,MS):CONVER 
ay 7 AO Moe ot sGOSUB ~S0{AS):STR(LS(1I),4,5)"AS:IF A=3 TH 
EN 63 

mameesuB *200("55","10500",6,0,"ENTER FREO HE",1,MS):CONVERT 
pent? Meee tt) GOSUB 9 50(AS):STR(LS(I) ,10,5)#AS:IF A=3THEN 
Meapeesus “200(°40',°9999",5,0,"ENTER PRF 1 LO",1,M$):CONVERT 
1° AS, C####)2GOSUB "50 (AS):STR(LS(I),16,4)3AS: IF Am3TUNEY 
440GOSUB '200("40","99990" 5 O,"ENTER PRF 1 HI",1,M°):CONVEPT 
ey, ° AS, C####) 3s GOSuB ae res TRIES (1) 21, 4)=AS27F A=3THFEN 
mee Os5uUB '200("0000", "9990" 5. O0,"ENTEF PPF 2 LO"™,1,MS$):CONVE 
at Beal Roe eNGOSUB 50(AS)>STR(LS(1),26,4)SAS:1F A=3TH 
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460GOSUB '200("0000","9999",5,0,"ENTER PRF 2 HI",1,M$):CONVE 
RT 09 TO AS, (####):GOSUB 'SO(AS):STR(LS$(1),31,4)=AS:1F A=3TH 
EN 630 

470GOSUB '200("00000","99996",6,0,"ENTER LTIFN",1,MS):CONVER 
T QOTO AS, (#####) :STR(LS (I), 36,5) "AS: IF A=3THEN 6 30 

480cosuB '200("00000","99999",6,0, WENTER SPRI",1,M$):CONVERT 
Q9 TO AS, (#####):STR(LS(1),42,5)=2AS:1F A=3THEN 630 

490GOSUB '200("00000", "99959".6,0, "ENTER TBKSF",1,MS$):CONVER 
T Q9TO AS, (#####) :STR(LS(1),48,5)"AS:1F A=3THEN 630 

500cosuB '200("00000", "11096",6,0,"ENTER TTMB",1,MS):CONVERT 
Q9 TO AS, (#####) sSTR(LS (1) ,54,5)=AS:IF A=3THEM 630 

510 IF A=2THEN 590 

520 IF I[=30 THEN 550 :I=I-10 


530 IF I=39 THEN 570 

540 GOTO 560 

poo IF I=30 THEN 380 

560 NEXT I 

570 GOTO 160 

SaOeENPUL “WHICH LIST DO YOU WISH TO CHANGF (1 TO 30,41 TO 4 

9)",1I:GOTO 390 

BeO INPUT "DO YOU WISH TO CHANGE ANOTHER LISTCY OR N)“,DS 

moo LF DS="Y"THEN 580:GOTO 160 

610 PRINT HEX(03):INPUT "WHICH LIST DO YOU WISE TO “WORK WITH 
mmrO 30,41 TO 49)",I1 

mo CONVERT I TO MS,(4*):STR(LS(I),1,2)=MS 

630 PRINTUSING 230:PRINTUSING 840:PRINT i) 

GeO PRINT “WHICH PARAMETEP DO YOU WISH TO CHANGF"™:PPINT TAB( 

Pereober nr LOW sPRINT TAB(19);-"2.RF HIGE":PPINT TA®(10):"3.PR 

fet 6=LOw" 

Meer R ENT TAB(LO):"4.,PRF 1 HIGH":PPINT TAB(10);"5.PRF 2 Low" 

meee’ TABC1O):"6.PRF 2 HIGH":PRINT TA®(10):"7.LTION': PRINT 

moect0):"8.SPRI" 

mePRINT TAB(10):"“9.TBKSF":PREINT TAB(10);"1C.TTNB":PRINT TA 

B(10);"1L1.NO OTHERS": INPUT D2 

Peon D2 GOTO 410,420,430,440,450,460,470,480,490,500, 260 

soo DEFFN’'100(LS,D$,C,G) 

690 PRINT HEX(03) 

moore ON G GOTO 720,730 

PeOePRINT “ASMD LISTS':GOTO 750 

mo PRINT “WAS LISTS":GOTO 750 

yao) PRINT "LAND LISTS" 

740 PRINT HEX(03) 

750 FOR J=1T0O C 

760 PRINTUSING 830:PRINTUSING 840 

meoerOR H=1 TO 49:PRINT LS(H):IF DS="Y"THEN 810 

meoetr H=10 THEN 800:I1F H=20THEN 800:IF H=30THEN 800 

790 GOTO 820 

800 PRINT "TO CONTINUE DEPRESS EXEC": INPUT D 

S10 IF DS="N"THEN 820:I1F H{]25THEN 820: PRINT HEX (OQAQAOAOA):P 

RINTUSING 830:PRINTUSING 840 

PageeN EXD H:PRINT HEX(0C):NEXT J 

830 ZLN FREQ FREQ PREF PREF PREF PRF LTIFN SPPI TBKSF TT 


MB 

R840 £ LO HI wiesleh bee LO 2? HT 

850 RETURN 

869 ON G GOTO 890,910 

7° pene tGH FS ALISIS” <DATA SAVE DC OPEN F “ALISTS","“ALIS 
zs 

pO DATA SAVE DC LS() "GOTO, 930 

890 PeetCHere Norsis sDATA SAVE DC OPEN F "WLISTS","WLIST 
S 

BOO DATA SAVE DC LS$() TEOmO. 9 20 


ios, 





MimsoRanten Fe" LUISTS'':DATA SAVE DC OPEN F"LLISTS","LLISTS" 
920 DATA SAVE DC LS() 

930 DATA SAVE DC END :DATA SAVE DC CLOSE 

940 PRINT HEX(O30A0AOA0A):PRINT "DO YOU WANT TO:":PRINT TAB( 
7):"1.STOP":PRINT TAB(7)3"2.RETURN TO 'START' PROGRAM": PRINT 

TAB(7)3;"3.RETURN TO THE BEGINNING OF THIS PROGRAM": INPUT E 
950 ON E GOTO 980,970,990 

960 PRINT "INVALID.REENTER":GOTO 940 

oo) LOAD DC F “START 

980 STOP 

990 PRINT HEX(030A0A0A):GOTO 60 

iO DEFEN 200 (QS (1), 05 (2) ,Q3,94,05$ ,Q5,M 

1010 SELECT PRINT 005(64):PRINT HEX(03);"LIST #="3M$S:PRINT H 
EX (010A) 05$;TAB(63):PRINT "2";:FOR O8=1TO O3:PRINT "-"s: NE 

XT 08: IF Q5= 2THEN 1020:PRINT "/";:IF O4=0THEN 1020:FOR O£=1 

TO QO4:PRINT "-—"s:NEXT Q8 

1020 PRINT TAB (63) : PRINT HEX (010A0A0909);3:08=0: INIT(20)06S: 

Oy —"0":06=0 

maeo O9S=" "SKEYEIN 09$,1040,1930:GOTO 1939 

1040 IF O9S=HEX(OD)THEN 1990:IF O9S=HEX(08) THEN 1129:IF 99$= 

HEX(E5)THEN 10190:PRINT 09$;:I1F Q5=2THEN 1169:0N VAL(09$)-42 

PoTo 1060,1050,1069,1970 

1050 IF O9S[{HEX(30) THEN 1110:IF O9$S]HEX(39) THEN 1119:GCTO 19 
sa 

7060 IF OS{1OTHEN 1119:06=1:GOTO 1939 

1070 IF POS(06S=".")=OTHEN 1089:IF POS (N6S=".")[]Q8+1THEN 11 
Ln 

1N8O N8=084+1:STR(06$ ,08,1)=09$:GOTC 1°39 

1990 PRINT HEX(ODOA): PRINT TAB(62):IF OS=2THEN 117°: IF O8=6T 

Mem Ll1O:IF OfJ13THEN 111G6:IF QO8]Q03+04THEN 1119:07=P0S (06S=" 
."):IF O7=OTHEN 1100:IF O7J]QO3+06+1THEN 1119: IF O8-07104THEN 
i 10 

1100 CONVERT STR(Q6$,1,Q8)TO O9:CONVERT Q$(1)TO Q6:CONVERT Q 
$(2)TO O7:IF QO9[O6THEN 1110:IF O9{=Q7THEN 1180 

1110 PRINT HEX(07):PRINT HEX(O10AOA0OA);"INVALID. RE-ENTER":G 

oro 1010 

20) OS=08-1:1F OS [OTHEN 1110:STR(QES ,Q8t1,1)=" ":IF Q8=Q3TH 

EN 1150:IF Q8[=Q3+Q4THEN 1140 

mis0) PRINT HEX (082003);:GOTO 1030 

mes PRINT HEX(082D08);:GOTO 1030 

1150 IF OS[]1THEN 1130:PRINT HEX(082F08)3;:GOTO 1030 

1160 IF Q9S{HEX(20)THEN 1110:IF Q9$ JHEX(7F) THEN 1119:GOTC 10 
80 

1170 IF Q8]O3THEN 1110:IF Q6$[Q$(1)THEN 1110:IF 06$]0$(2)THE 

N 1110 

1180 RETURN 

1190 DEFFN'50(AS$) 

magn rFOR J=1TO 3:I1F STR(AS,J,1){]"0" THEN 1210:STR(AS,J,1)=" 
SeNEXT J 

1210 RETURN 

meee TNIT(’ ")LS() 


maeoe DATA SAVE DC OPEN F15,"WLISTS":DATA SAVE DC LS() 
meco DNATA SAVE DC OPEN F15,"ALISTS":DATA SAVE DC LS$() 
Deis) 


eneoATA saAvVE DC OPEN F15,°LLISTS":DATA SAVE 
jm 60 GOTO 74) 
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MS 


OPERATOR OPTION VARIABLE FOR CHANGING LIST PARAMETERS / 
SAVING NEW LISTS/STOP 


NUMBER Or BESTS slorsr ENTERED 

NUMBER OF HARD COPIES TO BE MADE 

END OF PROGRAM OPTION 

WHICH SET OF LISTS ARE TO BE WORKED WITH 


INDEX VARIABLE TO STEP THROUGH LISTS DURING PRINT 
ROUTINE 


INDEX VARIABLE TO STEP THROUGH LISTS DURING PARAMETER 
INPUT/LIST NUMBER TO BE CHANGED 


INDEX VARIABLE FOR HARDCOPY PRINTOUT 
PARAMETER TO BE CHANGED IN LIisT I 
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VARIABLE. 


INPUT VARIABLE FOR YES/NO QUESTIONS 
DATA LOAD RECEIVING VARIABLE 


LIST NUMBER AFTER CONVERSION TO ALPHANUMERIC VARIABLE 
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ICAP EA-6B LIST MANAGEMENT 


10 REM DEVELOPED BY LT S.W.SMITH,USN, 2/12/79 

20 PRINT HEX(93) 

Sere INY ‘ THES PGM WILL ASSIST THE EWO IN MANAGING THE ICA 

EES OUADRON'S™:PRINT TAB(17); PACOVAND PA ASSIGNMENT mrss 

40 DIM Fees O22 Oo OS 

BONDEM LS(50)64,A3S8 

60 PRINT HEX(OAOAOA) 

70 PRINT TAB(10);"WHICH LIST SET DO YOU WANT TO WORK WITH" 
Se RINT TAB(27);"“1.WAS":PRINT TAB(27)3;"2.LAND":PRINT TAB(27 
ee 5. ASMD" 

SOmENPUT G:ON G GOTO 150,130,110 

MmOOePRINT “INVALID.REENTER":GOTO 70 

aor ATA LOAD DE OPEN F “ALISTS':DATA LOAD DC LS$():REM * 

TF ERR 80 OCCURS, ENTER RUN 11904%%%%% 

MeO GOTO 169 

maienatA LOAD DC OPEN F "LLISTS”:DATA LOAD DC LS():REM **4%% 
IF ERR 80 OCCURS, ENTER RUN 1190*%****% 

140 GOTO 160 

me DATA LOAD DC OPEN F “WLISTS':DATA LOAD DC L$():REM ***** 
IF ERR 80 OCCURS, ENTER RUN 11904%%*%% 

Mage ENeEUT “DO YOU DESIRE A LISTING OF THE PRESENT LISTECY OR 
a) DS 

170 IF DS="N"THEN 260 

moe GOSUB '100(LS,"N",1,G) 

190 INPUT "DO YOU WANT A HARD COPY OF THE PaASTiS-CY OR Noe ans 


P) 
Sy 
st 


POO IF DS="N"THEN 260: IF DS=#"Y"TEEN 220 

moe PPINT “INVALID.REENTER":GOTO 199 

220 INPUT "HOW MANY COPIES ",C 

230 SELECT PRINT 215 

eee GOSUB '1N0 (LS,DS,C,G) 

250 SELECT PRINT 90905 

260 PRINT HEX(N30A0A0A):PRINT "DO YOU WANT TO :" 

Pere RINT TAB(7)3;"1.ENTER ALL NEW LISTS":PRINT TAB(7):"2.CHA 

PeeEeSOME OF THE LISTS":PRINT TAB(7);:"3.CHANGE SELECTED PARAM 

meeRsS IN A SELECTED LIST" 

280 PRINT TAB(7);"4.SAVE WHAT YOU HAVE DONE": PRINT TAEB(7);"5 
Mmior THE LISTS":PRINT TAB(7);"6.STOP":INPUT A 

290 IF A[7THEN 300:PRINT "INVALID.REENTER":GOTO 260 

oom ON A GOTO 330,550,580,830,180, 310 

310 INPUT "SAVE ANY THING?2222222(Y OR Ne ae 

Pe OeiF DS="Y"THEN 830:GOTO 910 

330 INPUT "NUMBER OF LISTS TO BE ENTERED ([=50)",B8 

340 IF B[41THEN 350:PRINT "INVALID.REENTER":GOTO 330 

Seo, INIT(" ")LS$() 

foo) FOR I[=1 TO B 

Pw CONVERT I TO MS, (##) 

Bo@) STR(LS(1I),1,2)=MS 

390 GOSUB '200("001", Mig. oO wT rR Fre. 2.MS) -SmRGLS(I),4 
»3)=Q6S:IF A=3 THEN 600 

400 GOSUB Pe 550 10500 ,6,0, “ENTER FREO LO",1,MS):CONVER 

T 0° AS, (#t##EF) : GOSUB 'SO(AS) :STR(LS(1L),8,5)=AS:1F Az3 TH 

EN 

mere osuB '200(°55","10500",6,0,"ENTER FREO HI",1,M$) :CCNVERT 

Bae AS, (#####) :GOSUB 'SO(AS): SURGES Cl) 4 15) =AS:IF A=3THEN 
fmeeewows §200(" 40","9999".5,0,"ENTER PRF 1 LO",2,M$):STR(L 
yen), 20,4)=2AS:1F A=3THEN 600 


430GOSUB '200(" 40","S9900" 6,0, "ENTER PPF 1 HI",2,MS):STR 
(LS(I),24,5)=06$:I1F A=3THEN 600 

440G0SUB *200(" 40","9909" 5 Oo "ENTER PRF 2 LO",2,MS):STR(L 
$(1),29,4)=AS:IF A=3THEN 604 
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450GOSUB '200(" 40","S9999",6,0,"ENTER PRF 2 HI",2,MS):STR 
(L$ (1),33,5)=06$:IF A=3THEN 690 

460G0SUB *200(00000900", "76543219",9,0, "ENTER SITE",1,MS):C 
ONVERT O9TO AS, (44422244): STR(LS(T).39,2)=AS:1IF A=3THEN 609 
470GOSUB '200("90","31".3.0,"ENTER SYM", 1.MS):CONVERT 09 TO 
AS, (##):STR(LS(1),48,2)=A$:1F A=3THEN 690 

480GOSUB °200("000","799" 4.0, "ENTER PRI",1,MS$):CONVERT Q9TO 
AS, (###) :STR(L$(TI) ,51,3)=A S:IF A=3THEN 600 

490GOSUB 1200 (01%, 85", 2,0, "ENTER S"'1.MS):CONVERT 09 TO AS, ( 
#):STR(L$(1),55,1)=AS:1F A=3THEN 600 

500GOSUB ST YER RILGY Tce ee O,"ENTER FT",1,M$):CONVERT 09 TO 

AS, (###) :STR(LS$ (1) ,57,3)=AS: IF A=3THEN 690 

510GOSUB *200("1111","9995",5,0, "ENTER TBE",1,M$) sCONVERT Q9 
TO AS, (####):STR(LS(L),61,4)#AS:1F A=3THEN 600 

520 IF A=2THEN 560 


peo NEXT I 

540 GOTO 160 

Poe tNPUT “WHICH LIST DO YOU WISH TO CHANGE (1 TO 50)",1I:GOT 

0 370 

Boo INPUT "DO YOU WISH TO CHANGE ANOTHER LIST(Y OR N)",DS 

Byorerr DS="Y"THEN 550:GOTO 160 

580 PRINT ee (03):INPUT "WHICH LIST DO YOU WISH TO WORK WITH 
metTO 50)", 

590 CONVERT : MOM Sre( 4) STR(LS(1),1,2)=MS 

600 PRINTUSING 800:PRINTUSING 810: PRINT Lower) 

610 PRINT "WHICH PARAMETER DO YOU WISH TO CHANGE": PPINT TAB( 

Meee tT oETP  <TAB(31);"2.RF LOW":PRINT TAB(10);"3.RF FIGH";TAB 

ort): "4.PRF 1 LOW" 

meee R INT TAB(T0)>-"5.PRF 1 HIGH": TAB(31):"6.PRF 2 LOW":PRINT 

meap«(tO):"7.PRF 2 HIGH";TAB(31):; "8 SITE":PRINT WACO tS aS 

menab(31):"10.PRI" 

meorrNT TABC LO). 11,5" *TAB(31):"212.FT": PRINT TA3(10):"13.T 

BK": TAB(31)3%14.NO OTHERS": INPUT D2 

me ON D2 GOTO 390,409,410 ,429,439,440,456,460,470,480 ,490,5 

foe 5 10,260 

feo DEFFN'1LOO(LS,DS,C,6G) 

660 PRINT HEX(03) 

670 ON G GOTO 690,709 

PoP PRINT “ASMD LISTS":GOTO 720 

Se eRINT “WAS LISTS":GOTO 720 

moo PRINT "LAND LISTS" 

710 PRINT HEX(03) 

720 FOR J=1TO Cc 

730 PRINTUSING 800:PRINTUSING 810 

mreeroOR H=? TO 50:PRINT LS(H):IF DS="Y"THEN 780 

FOO IF H=10 THEN 770: IF H=20THEN 770:IF H=30THEN 770:I1F H=40 

THEN 770 

760 GOTO 790 

770 PRINT "TO CONTINUE DEPRESS EXEC": INPUT D 

780 IF DS="N"THEN 790:IF H{]25THEN 790: PRINT HEX (OAOAQAOAOA) 

sPRINTUSING 800:PRINTUSING 810 

790 NEXT H:PRINT HEX(0C): NEXT J 


800 ZLN FTP FREQ FREQ PRF PREF PRF PREF SITE SM PRI § 
FT TBK 
Bro Z LO HI vem lent eeLo 2 HT 


820 RETURN 

830 ON G GOTO 860,880 

840 ite ent oits  ©“DATA SAVE DC OPEN F “ALISTS","ALIS 
TS 

ee DATA SAVE DC LS$() GOTO 90N 

n° Pec meen ilons —.DATA SAVE DG OPEN F "WLISTS" ,"WLIST 
mo DATA SAVE DC LS$() <COTO 900 
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mena rere be botsoiG *DATA SAVE DC OPEN F'LLISTS","LLISTS"™ 

890 DATA SAVE DC LS() 

900 DATA SAVE DC END :DATA SAVE DC CLOSE 

O70 PRINT HEX(ON30A0AO0A0A):PRINT “DO YOU WAMT TO:":PRINT TAB( 
mene srOr'=PRINT TAB(7)*"2-RETURN TO ‘'START" PROGRAM": PRINT 

mae (7)s"'3.RETURN TO THE BEGINNING OF THIS PROGRAM": INFUT E 

920 ON E GOTO 950,940,960 

930 PRINT “INVALID.REENTER":GOTO 910 

S20 LOAD DC F “START” 

950 STOP 

960 PRINT HEX(030A0A0A):GOTC 60 

Peo DEFFN'200(0$ (1) ,Q$ (2) ,03,904,905$,05,MS) 

Seo SELECT PRINT 005(64):PRINT HEX(03);"LIST #="3sMS$:PRINT HE 

Pee A e555; TAB(63)2PRINT “?"3sFOR Q8=1TO Q3:PRINT “="32: NEX 

moc. IF O532THEN 990:PRINT "/"3:IF Q4=OTHEN 990:FOR Q8=1TO 

C4- PRINT “="::NEXT Q8 

990 PRINT TAB(63):PRINT HEX(010A0A0909);:Q8=0: INIT(20)Q65:0 
7$="0":Q6=0 

men O9S=" "sKEYIN 09$,1010,1000:GOTO 10900 

1910 IF Q9S=HEX(OD)THEN 1060:IF Q9S=HEX(08)THEN 1090:IF Q9S= 

HEX (E5)THEN 980:PRINT Q9S;3:IF QS=2THEN 1130:0N VAL(09$)-42 G 

@7O 1030,1020,1030,1040 

ma20 IF O9S{THEX(30) THEN 1O80:1F O9S]HEX (39) THEN 1089:GOTO 19 
50 

1930 IF O8{]OTHEN 1080:9Q6=1:GOTO 1059 

myeo TF POS(Q6S=".")=>O0THEN 1050:IF POS (Q6S=".")[]Q8+1THEN 10 
89 

moo OS=08+1:STR(06S ,08,1)=09$:GOTO 109 

moo PRINT HEX(ODOA):PRINT TAB(63):IF CS=2THEN 114%9:IF O8=0T 

HEN 1080:IF O8J13THEN 1029: IF 08103+04THEN 1980:07=P0S(06S=" 
."):IF O7=OTHEN 1070: IF Q7]O3+06+1THEN 1080: IF 08-07]Q4THEN 

1080 

moro) CONVERT STR(06S,1,08)TO O9:CONVERT OS(1)TO Q6:CONVERT Q 

§(2)TO O7:IF QO9[NGTHEN 10980: IF OO9[=Q7THEN 11590 

1080 PRINT HEX(07):PRINT HEX (O1LOAOAOA); "INVALID. RE-ENTER":G 

OTO 980 

1990 O&8=O08-1:IF OS[OTHEN 1089:STR(N6S ,O8t1,1)=" ":IF Q8=Q3TH 

EN 1120:IF Q8(=03+04THEN 1119 

mre PRINT HEX(082002);::GOT9O 1900 

mero PRINT HEX(082D08)::GOTO 1990 

1120 IF OS[{]J1THEN 1100:PRINT HEX(022F08)3:GOTO 10990 

peo Per Oo. (HEX G20) THEN 10602 Pe O9S IHEX(7F)THEN 1080:GOTO 10 
me Me COD PIE NSO sO. TP O65 (Gs) THEN LOGO:IF Q6S }0$(2)THE 

N 108 

1150 RETURN 

1160 DEFFN'S50(AS) 

meeoerOR J=1TO 3:;51F STR(AS,J,1)[]"0" THEN 1180:STR(AS,J,1)=" 
MeMEXT J 

1180 RETURN 

meoo INITC™ ")LS (C) 

mao) DATA SAVE DC OPEN F30,"WLISTS":DATA SAVE DC LS() 

ieeor DATA SAVE DC OPEN F30,"ALISTS":DATA SAVE DC LS() 

meee DATA SAVE DC OPEN F30,"LLISTS":DATA SAVE DC LS() 

i300 GOTO 70 
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ICAP EA-6B LIST MANAGEMENT 
(DOES NOT INCLUDE THOSE USED BY DEFFN!200) 


A 
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AS 


Bo 
L$ 


MS 


OPERATOR OPTION VARIABLE FOR CHANGING LIST PARAMETERS/ 
SAVING NEW LISTS/STOP 


NUMBER OF LISTS TO BE ENTERED 

NUMBER OF HARD COPIES TO BE MADE 

END OF PROGRAM OPTION 

WHICH SET OF LISTS ARE TO BE WORKED WITH 


Pipe VARTABEE IO SstTEP THROUGH LISTS DURING PRINT 
ROUTINE 


INDEX VARIABLE TO STEP THROUGH LISTS DURING PARAMETER 
INPUT/LIST NUMBER TO BE CHANGED 


INDEX VARIABLE FOR HARDCOPY PRINTOUT 
PARAMETER TO BE CHANGED IN LIST I 


DEFIN'50O PASSING VARIABLE. PARAMETER INPUT RECEIVER 
VARIABLE. 


INPUT VARIABLE FOR YES/NO QUESTIONS 
DATA LOAD RECEIVING VARIABLE 


LIST NUMBER I AFTER CONVERSION TO ALPHANUMERIC VARIABLE 
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pO Ilha @: 


10 REM DEVELOPED BY LT S.W.SMITH,USN, 3/12/79 

20 PRINT HEX(030A0A):PRINT TAB(15);"THIS PGM PROVIDES A CONV 

eT ANS OF":PRINT TAB(15)3;"MAINTAINING AN UP TO DATE HULT 
2 

Bom DIM AS (50)64,WS (50)2,LS (50)2,85(50)64,C$(1)10 

Mm pATA LOAN DC OPEN F"DATE”:DATA LOAD DC C$():DATA LOAD DC 

OPEN F"HUL":DATA LOAD DC A$():REM *****IF YOU GET ERR 80, EN 

TER RUN 800*****x 

50 PRINT HEX (OAOAOAOA);TAB(10)3;"DO YOU WISH TO LOOK AT THE E 

for ReE FILE AT THIS TIME? Y OR N" 

60 INPUT DS:IF DS="N"THEN 130 

MOP PRINT “DATE OF DATA IS ees (1) 

80 PRINTUSING 310 

moe T=1TO S5SOsPRINT ASC€1): IEF I=10 THEN 119:1F I=2S THEN 11 

O:IF I=30 THEN 110:IF I=40 THEN 110:IF 1=50 THEN 120 

100 NEXT I 

110 PRINT HEX(OAOA): INPUT "MORE TO SEE. DEPRESS EXEC TO CONT 

ip -GOTO 100 

120 INPUT “NO MORE TO SEE. DEPRESS EXEC TO CONTINUE PGM",D 

ieO) PRINT "DO YOU WISH TO:" 

lrOe PRINT TAB(10):"1.CHANGE AN ENTRY":PRINT TAB(19):"2.0BTAI 

N A HARD COPY OF THE CURRENT FILES":PRINT TAB(10);"3.SAVE WE 

Peeerou HAVE DONE”: PRINT TAB(10);"4.LIST THE FILES" 

MmeOon PRINT TAB(10):"5.SEARCH FOR A PARTICULAR PLATFORM":PRINT 

Meech @)- "G,SEARCH FOR A PARTICULAR EMITTER":PRINT TAB(10);3;"7 

eoerurRN TO THE "START PROGRAM": PRINT TAB(10);"8.STOP" 

ieiNPUT EVON EF GOTO 170,320,370, 290,509, 840,949,590 

mao INPUT “WHICH LINE DO YOU WISH TO CHANGE",B:CONVERT BTO S 

BeecA>(B),63,2), (Pi?) 

ieoOr PRINT “DO YOU WISH TO CHANGE":PRINT TAB(10):"1L.ALL VALUE 

meeePRINT TAB(10):"2,SELECTED VALUES": INPUT F 

190 IF F=2THEN 460 

200 PRINT HEX(03) 

mieeGOSUB '243("ENTER RF ",5):GOSUB '50(Q6$):STR(AS(B),1,5)= 

O6$:IF F=2THEN 460 

Pe OecOsuB '243("PRF",4):GOSUB '50(Q6$):STR(AS(3) ,7,4)=06S:IF 

F=2THEN 460 

PemecOsUS *243("PRI 1"°,9):GOSUB '50(Q6$):STR(AS (3B) ,12,9)=Q68$ 

sIF F=2THEN 460 

mepmGOSUB “243("PRI 2",9):GOSUB '50(06$):STRC(CAS(B),22,9)=Q6S 

sIF F=Z2THEN 460 

PetmGOsUS '243(°PW",4):GOSUB '50(068):STR(AS(B) ,32,4)=Q6S:I1F 

F=2THEN 460 

260 GOSUB '243("SCAN PERIOD",4):GOSU3B '50(Q6$):STR(AS(3B),37, 

4)=Q6S:IF F=2THEN 460 

mOeGOSUB *243(™PLATFORM'S NAME",S8):STR(AS(B) ,42,9)=Q6S:IF F 

=2THEN 460 

MeemcOoUB “243("EMITTER'S NAME",6):STR(AS(B),51,6)206S:IF F= 

2THEN 460 

PeeecOsus '243¢("NTDS KEY NUMBER",4):GOSUB '59(05$):STR(AS(B) 

,58,4)=06S:IF F=2THEN 460 

BPOePRINTUSING 319:PRINT AS(B):PRINT HEX(OAOAOA):GOTO 130 

310% RF PRF PRI 1 PRT. .2 PW SPD PAT RADAR 

KEY LN 

SeeeeNe UL “PRINTER ON AND SELECTED? DEPRESS EXEC TO CONT",D 

330 INPUT "NUMBER OF COPIES",Cl 

eo) FOR I=1TO Cl 

Seeeot LECT PRINT 215:PRINTUSING 319:MAT PRINT AS: PRINT HEX(O 

AOAOAOA) : NEXT I 

Soe SELECT PRINT 005:GOTO 139 

Semi NPUT “TODAY'S DATE 1IS",CS$(1) 
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380 SCRATCH F"DATE":DATA SAVE DC OPEN F"DATE","DATE":DATA SA 
WE De CS$() 

390 SCRATCH F"HUL"™:DATA SAVE DC OPEN F"HUL", "HUL" 

400 MAT SORT AS()TO WS(),LS() 

410 MAT MOVE AS(C), L$(1)TO BS(1) 

420 FOR I=1 TO 50:CONVERT I TO 1$,(##):STR(BS(I),63,2)=IS:NE 

or 

430 MAT COPY BS() TO AS() 

440 DATA SAVE DC AS(C) 

450 GOTO 130 

460 PRINT HEX(03):PRINTUSING 310:PRINT AS(3): PRINT "WHICH V 
ALUE DO YOU WISH TO CHANGE? SELECT ONE" 

imei tT AapolLO)<: lamer sPRENT TAB(10);"2.PRE":PRINT TAB(10) 
MarR 1 s¢<PRENE TAB(10):"4.PRI 2":PRINT TAB(19);"5.PW":PRIN 
T TAB(10);"6.SCAN PERIOD": PRINT TAB(10);"7.PLATFORM'S NAME" 

480PRINT TAB(10):"S8.EMITTER'S NAME":PRINT TAB(19);"9.NTDS KF 
Y NUMBER":PRINT TAB(10);"1LO.NO OTHERS": INPUT G 

PaomeeRINT HEX(03): ON GC GOTO 219,220,230, 249,250,260,270,23n 
, 290,130 

500 PRINT HEX(03):GOSUB '243("INPUT PLATFORM'S NAME", 8):PRIN 
T HEX(03) 

510 PRINTUSING 310 

pee rOR IT=1TO 50:I1F STR(AS(1),42,8)[]O6STHEN 540:PRINT AS(T) 


530 C#C+1:B$(C)=AS(I) 

540 NEXT I:IF CIOTHEN 550:PRINT "NO PLATFOR'NS WITH TEAT NAME 

MePRENT HEX(QAOANA):GOTO 130 

550 PRINT HEX(OAOA):INPUT "HARD COPY DESIRED (Y OR N)",DS:IF 

DS="N"THEN 130 

moo INPUT "HOW MANY COPIES",C1:SELECT PRINT 215 

Poet OR [=1TO C1: PRINTUSING 310:FOR J=1TO C: PRINT 2®$(J):NEX 

T J: PRINT HEX(OAOAOAOA):NEXT I 

580 SELECT PRINT 005:GOTO 130 

590 STOP 

600DEFFN'242(W0,Q68S):SELECT PRINT O05:IF WO[=OTHEN 610:INIT( 

Q6$)Q6S:PRINT STR(Q6$,1,WO-INT((W0-1)/63)*63) 3: NO=WO-(WO-INT 

((WO-1)/63)*63):GOTO 600 

61ORETURN 

620DEFFN'243(Q6$,Q0):GOSUB 669 

BSOSELECT CO 205:Q6S=" ":INPUT Q6S:IF QO=OTHEN 700:IF LEN(96 

$){[=QOTHEN 700:GOSUB '255 

640DEFFN'244(Q0):GOSUB 680:GOSUB 670:GOTO 630 

650DEFFN'255:GOSUB '248(3,0,<-1):PRINT HEX(07);"RE-ENTER":RET 

URN 

660CGCOSUB 710:PRINT HEX(910A):STR(Q6$,1);TAB(80) 

ios. e 710:PRINT HEX (O1OAOA); TAB (80); HEX (OLOAOA):GOSUB '24 

2(N0+2 

680PRINT HEX(O1OAOA) 

69O0KEYIN 068,690,690:RETURN 

7OOPRINT HEX (0A);TAB(80) 

7LOSELECT PRINT 005, CO 005:RETURN 

720DEFFN'248(06,07,08):SELECT PRINT O095:I1F O8=0THEN 740:IF A 

8S(08)[]9F99THEN 730:PRINT HEX(03):COTO 749 

730GOSUB 740:SELECT PRINT 205:PRINT TAB(72-8*SGN(8)=-07):1IF 

ABS(08)[2THEN 740:FOR WO=2TO ABS(Q8):FRINT HEX (OA); TAB(72-8 

SGN(08)):NEXT WO 

moorPRINT HEX(01):GOSUB '242(07,HEX(09)):GOSUB '242(06,HEX(OA 

)): SELECT PRINT O005:RETURN 

moo INIT(" ")AS() 

760 STOP 

770 DEFFN'50(06$) 

30 as (iOmerelr eo UR(Ooc,), Ly) 'O"TREN 7°0:STR(06S,3,1)=" " 
ar J 
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790 RETURN 

poomerrre’ ")AS():INIT(” ")CSQ 

810 DATA SAVE DC OPEN F3,"DATE":DATA SAVE DC CS$() 

820 DATA SAVE DC OPEN F50,"HUL":DATA SAVE DC AS() 

830 GOTO 130 

840 PRINT HEX(03):GOSUB '243("INPUT EMITTER'S NANE",6):PRINT 
HEX (03) 

850 PRINTUSING 310 

860 FOR I=1TO 50:IF STR(AS(I),51,6)[]JOQO6STHEN 880:PRINT AS(T) 


Bo C=C+1:BS(C)=AS(L) 

880 NEXT I:IF C=OTHEN 930 

890 PRINT HEX(OAOA):INPUT "HARD COPY DESIRED (Y OR N)",DS:IF 
DS="N"THEN 130 

PeOetNPUT “HOW MANY COPIES” ,€1:SELECT PRINT 215 

OO FOR LT=1TO CL:PRINTUSING 31N:FOR J=1TO C: PRINT BS(J):NEX 
T J: PRINT HEX (OAOAQAONA):NEXT I 

m0) SELECT PRINT 005:GOTO 130 

Wo Bernt  NOwEMEEEPRS WITH HAT NAME" :PRINT HEX (OA0A):COTO 
130 

moo LOAD DC F"START" 
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TERMINATE 


en ae ae 
LOAD DATE 
ND DATA 


LIST DATAD 2 


ES 


PRINT DATA 


O YOU WISH TO 








1. Change an emery 


2. Hard copy 
3B. Save data 

« Lise data 
5. Search for & 
Search for 





WHICH LINE 





ALL OR SELEC- 
TED PARAMETERS 







INPUT PARA- 
METER(S) 








nn emiccer 
















PLATFORM'S 
NAME (O68) 






NUMER OF 
COvIES (Cl) 







FOR I=l TO 50 


BS (C)#AS(I) 


INCREME 


NU 





BS()TOAS () 


DATA SAVE A3$( E 
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SNOB © 


es 


el 
AS 


BS 


C$ 


Ds 


L$ 


Q6$ 


WS 


COUNTER FOR MATCHES MADE WHEN SEARCHING FOR PARTICULAR 
PLATFORMS OR EMITTER. 


PNEUE VArRe Abn POR DEPRERSs EXEC FO CONT. 


INPUT VARIABLE FOR OPERATOR'S SELECTION OF WHAT HE 
WISHES TO DO WITH DATA. E=1T0O8 


INPUT VARIABLE FOR SELECTION OF WHETHER ALL OR SELECTED 
PARAMETERS ARE TO BE CHANGED. F=l FOR ALL, F=2 FOR 
Sy bEeLED 


INPUT VARTABLE FOR SELECTION OF WHICH PARAMETER IS TO 
CHANGED. G=l1TO10. 


INDEX VARIABLE IN FOR TO ROUTINE 

Pipe xX VARTABLE EF FORK TO ROUTINE 

NUMBER OF COPIES THAT ARE TO BE MADE 
RECEIVER ARRAY FOR DATA LOAD AND MATCOPY 


RECEIVER ARRAY FOR MAT MOVE. BUFFER ARRAY FOR MATCHES 
MADE IN SEARCH FOR A PARTICULAR PLATFORM OR EMITTER. 


RECEIVER ARRAY FOR DATE. 


INPUT VARIABLE (Y OR N) FOR 'WISH TO LOOK AT DATA' 
AND 'HARDCOPY DESIRED’. 


LOCATION ARRAY FOR MAT SORT 


Pie veoh FOR ENTRY OF PARAMETERS, PLATFORM NAME, 
AND EMITTER NAME. 


WORK ARRAY FOR MAT SORT. 
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PRINT 


Powe DEVELOPED BY LT S.W.SMITH,USN 2/12/79 
20 REM PGM TO PRINT A LISTING OF THE DATA FILE 
30 DIM AS(4)62 

40 PRINT BEX(03) 


By) 


Pein wWHiGh EELEeDO YOU WANT TO PRINT“: PRINT TAB(1°);"1. 


EPL":PRINT TAB(10)3;"2.MOBILE PLATFORMS":PRINT TAB(1G6);"3.LAN 
D FOB":INPUT D 

moon D COTO 70, 200,230 

70 INPUT "INSTALL EPL DISK IN DRIVE 2,DEPRESS EXEC TO CONT", 


( 

Pome IMITS R “EPLIF1".A1l,A2,A3 
90 S=Al 

100 SELECT PRINT 215 


pi) 
120 
130 
140 
i> 0 
160 
170 
Ihten@) 
io 0 
200 
SEC 
EL O 
a2 0 


Zo) 


PRINT "ELINT MC NAME FC NTDS# COMMENTS" 
FOR I=l1 TO (A3-2) 

DATA LOAD DA R (S.S) AS() 

FOR K=1 TO 4 

Mee sTR (ASI(K) .7,2)1)]" O THEN 17¢ 

FRINT AS$(K) 


NEAT K 

Nees ae TD 

coro 330 

PEG INSTALL MOBILE PLATEORM DISK IN DRIVE 2,DEPRESS E 


TO CONT",G 
[EMirS R"EOBIFI",Al,A2,A3 
S=A1:SELECT PRINT 215:PRINT "NAME CC":GOTO 260 


ie (een LAND BOB DESKeEN DRIVE 2. DEPRESS EXEC TC 


CONTINUE" ,G 


240 
E50 
260 
270 
280 
290 
500 
0 


320 
630 


Pits PUROS2F1" Al. A2.A3 

S=AL:SELECT PRINT 215:PRINT "LAT/LONG cor 
FOR I=1TO (A3-2) 

DATA LOAD DA R (S,S)AS() 

FOR K=1TO 4 

Me STRCAS (KR), 29,1) ]="2"THEN 310 

PRINT STR (AS(K) 2,17) 

NEXT K 

EXT 

PELEGT PRINT ©005-LOAD Dc F'START" 
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CALCULATE 
LIMITS OF 
DATA FILE 
(AL ,A2,A3) 





PRINT KEY 
INFORMATION 






END 
OF DATA 
FILE 
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PRINT 


D DATA FILE SELECTION VARIABLE 
G CONTINUATION VARIABLE 

I FOR TO INDEX VARIABLE 

is INDEX VARIABLE 

S RECEIVING VARIABLE FOR SECTOR NUMBER AFTER DA LOAD 
Al FIRST SECTOR ADDRESS IN DATA FILE 

A2 ENDING SECTOR ADDRESS 

A3 NUMBER OF SECTORS USED IN DATA FILE 

AS RECEIVING ARRAY FOR DATA LOAD COMMANDS. 
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